X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=cd6297a83f1fe3e6b623848dcc9edb8ec2851b3d;hp=fa4a1828883534cf3eef408a232088b15c322698;hb=637d4f17e6965551c032a3115dcbbb4d8e01fbf5;hpb=05a12aa45fbcd22111d4f5dde2736c8361540198 diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm index fa4a182..cd6297a 100644 --- a/lib/Mouse/Util.pm +++ b/lib/Mouse/Util.pm @@ -38,7 +38,7 @@ BEGIN{ # Because Mouse::Util is loaded first in all the Mouse sub-modules, # XS loader is placed here, not in Mouse.pm. - our $VERSION = '0.50_01'; + our $VERSION = '0.50_03'; my $xs = !(exists $INC{'Mouse/PurePerl.pm'} || $ENV{MOUSE_PUREPERL}); @@ -244,12 +244,12 @@ sub _try_load_one_class { return undef if $is_class_loaded_cache{$class} ||= is_class_loaded($class); - my $file = $class . '.pm'; - $file =~ s{::}{/}g; + $class =~ s{::}{/}g; + $class .= '.pm'; return do { local $@; - eval { require($file) }; + eval { require $class }; $@; }; } @@ -260,7 +260,7 @@ sub load_class { my $e = _try_load_one_class($class); Carp::confess "Could not load class ($class) because : $e" if $e; - return 1; + return $class; } sub is_class_loaded; @@ -355,7 +355,7 @@ Mouse::Util - Features, with or without their dependencies =head1 VERSION -This document describes Mouse version 0.50_01 +This document describes Mouse version 0.50_03 =head1 IMPLEMENTATIONS FOR