Make does_role accept a role meta object

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

diff --git a/lib/ouse.pm b/lib/ouse.pm
index 3026ced..0173553 100644 (file)
--- a/lib/ouse.pm
+++ b/lib/ouse.pm
@@ -1,7 +1,6 @@
 package ouse;
 
-use strict;
-use warnings;
+use Mouse::Util; # enables strict and warnings
 
 BEGIN {
     my $package;
@@ -9,18 +8,15 @@ BEGIN {
         $package = $_[1] || 'Class';
         if ($package =~ /^\+/) {
             $package =~ s/^\+//;
-            eval "require $package; 1" or die;
+            Mouse::Util::load_class($package);
         }
     }
-    use Filter::Simple sub { s/^/package $package;\nuse Mouse;\n/; }
+    use Filter::Simple sub { s/^/package $package;\nuse Mouse;\nuse Mouse::Util::TypeConstraints;\n/; }
 }
 
 1;
-
 __END__
 
-=pod
-
 =head1 NAME
 
 ouse - syntactic sugar to make Mouse one-liners easier