package Mouse::Util;
use Mouse::Exporter; # enables strict and warnings
-sub get_linear_isa($;$); # must be here
+# must be here because it will be refered by other modules loaded
+sub get_linear_isa($;$); ## no critic
-sub install_subroutines { # must be here
+# must be here because it will called in Mouse::Exporter
+sub install_subroutines {
my $into = shift;
while(my($name, $code) = splice @_, 0, 2){
# 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_08';
+ our $VERSION = '0.59';
my $xs = !(exists $INC{'Mouse/PurePerl.pm'} || $ENV{MOUSE_PUREPERL});
}
# taken from Class/MOP.pm
-my %is_class_loaded_cache;
sub _try_load_one_class {
my $class = shift;
Carp::confess "Invalid class name ($display)";
}
- return undef if $is_class_loaded_cache{$class} ||= is_class_loaded($class);
+ return '' if is_class_loaded($class);
$class =~ s{::}{/}g;
$class .= '.pm';
=head1 VERSION
-This document describes Mouse version 0.50_08
+This document describes Mouse version 0.59
=head1 IMPLEMENTATIONS FOR