Tweaks for ouse.pm
gfx [Mon, 7 Dec 2009 05:13:52 +0000 (14:13 +0900)]
lib/ouse.pm

index 6ebf64d..cebb5f9 100644 (file)
@@ -1,7 +1,6 @@
 package ouse;
 
-use strict;
-use warnings;
+use Mouse::Util; # enables strict and warnings
 
 BEGIN {
     my $package;
@@ -9,7 +8,7 @@ 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/; }