We don't need to do both eval and Module::Name -> Module/Name.pm munging
Shawn M Moore [Sun, 28 Sep 2008 15:18:50 +0000 (15:18 +0000)]
lib/Mouse/Util.pm

index a0bf463..967b784 100644 (file)
@@ -124,11 +124,9 @@ our %dependencies = (
 our @EXPORT_OK = map { keys %$_ } values %dependencies;
 
 for my $module_name (keys %dependencies) {
-    (my $file = "$module_name.pm") =~ s{::}{/}g;
-
     my $loaded = do {
         local $SIG{__DIE__} = 'DEFAULT';
-        eval "require '$file'; 1";
+        eval "require $module_name; 1";
     };
 
     for my $method_name (keys %{ $dependencies{ $module_name } }) {