X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlobj.pod;h=e466dc7dd7f3e20c9454820effe45adbc9fdbc4a;hb=4521542890c02b2ddcb4a39429066bc380e4e5e7;hp=f31ce2c993fa1b78a0096ba59630fe59779d978a;hpb=38242c004862c1bab670bd395f573231149ffa1a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/perlobj.pod b/pod/perlobj.pod
index f31ce2c..e466dc7 100644
--- a/pod/perlobj.pod
+++ b/pod/perlobj.pod
@@ -361,21 +361,41 @@ are inherited by all other classes:
 
 C<isa> returns I<true> if its object is blessed into a subclass of C<CLASS>
 
-You can also call C<UNIVERSAL::isa> as a sub with two arguments.  The
-first does not need to be an object or even a reference.  This
-allows the ability to check what a reference points to, or whether
+You can also call C<UNIVERSAL::isa> as a subroutine with two arguments.
+The first does not need to be an object or even a reference.  This
+allows you to check what a reference points to, or whether
 something is a reference of a given type. Example
 
     if(UNIVERSAL::isa($ref, 'ARRAY')) {
     	#...
     }
 
+To determine if a reference is a blessed object, you can write
+
+    print "It's an object\n" if UNIVERSAL::isa($val, 'UNIVERSAL');
+
 =item can(METHOD)
 
 C<can> checks to see if its object has a method called C<METHOD>,
 if it does then a reference to the sub is returned, if it does not then
 I<undef> is returned.
 
+C<UNIVERSAL::can> can also be called as a subroutine with two arguments.
+It'll always return I<undef> if its first argument isn't an object or a
+class name.    So here's another way to check if a reference is a
+blessed object
+
+    print "It's still an object\n" if UNIVERSAL::can($val, 'can');
+
+You can also use the C<blessed> function of Scalar::Util:
+
+    use Scalar::Util 'blessed';
+
+    my $blessing = blessed $suspected_object;
+
+C<blessed> returns the name of the package the argument has been
+blessed into, or C<undef>.
+
 =item VERSION( [NEED] )
 
 C<VERSION> returns the version number of the class (package).  If the