Use Scalar::Util/Carp imports for brevity

[gitmo/Mouse.git] / lib / Mouse.pm

diff --git a/lib/Mouse.pm b/lib/Mouse.pm
index d2b2fc6..37f92ca 100644 (file)
--- a/lib/Mouse.pm
+++ b/lib/Mouse.pm
@@ -43,11 +43,11 @@ do {
         },
 
         confess => sub {
-            return \&Carp::confess;
+            return \&confess;
         },
 
         blessed => sub {
-            return \&Scalar::Util::blessed;
+            return \&blessed;
         },
     );
 
@@ -62,8 +62,9 @@ do {
         strict->import;
         warnings->import;
 
-        no strict 'refs';
-        @{ $CALLER . '::ISA' } = 'Mouse::Object';
+        my $meta = Mouse::Class->initialize($CALLER);
+        $meta->superclasses('Mouse::Object')
+            unless $meta->superclasses;
 
         goto $exporter;
     }