resolve the missing methods from #42

Build.PL

@@ -52,6 +52,7 @@ my $builder = MyBuild->new(
         'utf8::all'           => '0.002',
         'Carp::Fix::1_25'     => '1.000000',
         'Hash::StoredIterator' => '0.001',
+        'Scalar::Util'        => '1.25',
         'Hash::FieldHash'     => '0.06',
     },
     build_requires => {

lib/perl5i.pm

@@ -113,6 +113,13 @@ the object which were previously over complicated.  For example...
     # the reference type of the object
     my $reftype = $obj->mo->reftype;
 
+    # test to see if object is a reference
+    print 'is ref' if $obj->is_ref;
+
+    # test to see if object is a blessed object
+    print 'is object' if $obj->is_object
+    print 'is blessed' if $obj->is_blessed
+
 A meta object is used to avoid polluting the global method space.
 C<mo> was chosen to avoid clashing with Moose's meta object.
 

lib/perl5i/2/Meta.pm

@@ -7,10 +7,12 @@ use 5.010_000;
 # Be very careful not to import anything.
 require Carp::Fix::1_25;
 require mro;
+require Scalar::Util;
 
 require perl5i::2::Meta::Instance;
 require perl5i::2::Meta::Class;
 
+
 sub UNIVERSAL::mo {
     # Be careful to pass through an alias, not a copy
     return perl5i::2::Meta::Instance->new($_[0]);
@@ -141,4 +143,12 @@ sub super {
     $class->$method_not_found($method);
 }
 
+sub is_ref {
+    my $self = shift;
+    ref $self ? 1 : 0;
+}
+
+sub is_blessed { Scalar::Util::blessed shift; }
+sub is_object { Scalar::Util::blessed shift; }
+
 1;

lib/perl5i/Meta.pod

@@ -264,6 +264,25 @@ Examples:
     my $uri = URI->new("http://www.perl.org");
     $uri->mo->is_equal("http://www.perl.org") # True
 
+
+=head3 is_ref 
+
+  $object->mo->is_ref;
+
+Return boolean value based on if mo->reftype exists.
+
+=head3 is_object
+
+  $object->mo->is_object
+
+Return boolean value based on if $object is a blessed reference.
+
+=head3 is_blessed
+
+  $object->mo->is_blessed
+
+Return boolean value based on if $object is a blessed reference.
+
 =head3 perl
 
 Same as L<as_perl>.  For backwards compatibility.

t/Meta/methods.t

@@ -108,5 +108,14 @@ SKIP: {
     can_ok "Fcntl", @methods;
 }
 
+note "meta scalar utils: issue #42"; {
+    ok []->mo->is_ref, q{is_ref};
+    my $obj = bless {}, 'THING';
+    ok $obj->mo->is_object, q{is_object};
+    ok $obj->mo->is_blessed, q{is_blessed};
+    ok $obj->isa('THING'), q{isa thing};
+    ok $obj->isa('HASH'), q{isa HASH};
+}
+
 
 done_testing;