Lines Matching defs:blessed
13 @EXPORT_OK = qw(blessed dualvar reftype weaken isweak tainted readonly openhandle refaddr isvstring looks_like_number set_prototype);
61 sub blessed ($) {
83 # This eval will fail if the reference is not blessed
145 use Scalar::Util qw(blessed dualvar isweak readonly refaddr reftype tainted weaken isvstring looks_like_number set_prototype);
159 =item blessed EXPR
161 If EXPR evaluates to a blessed reference the name of the package
162 that it is blessed into is returned. Otherwise C<undef> is returned.
165 $class = blessed $scalar; # undef
168 $class = blessed $ref; # undef
171 $class = blessed $obj; # "Foo"