Add information about Scalar::Util::blessed.

p4raw-id: //depot/perl@9934

diff --git a/pod/perlobj.pod b/pod/perlobj.pod
index 7d7eee5..e466dc7 100644 (file)
--- a/pod/perlobj.pod
+++ b/pod/perlobj.pod
@@ -387,6 +387,15 @@ 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