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_03';
+ our $VERSION = '0.50_09';
my $xs = !(exists $INC{'Mouse/PurePerl.pm'} || $ENV{MOUSE_PUREPERL});
(my $hack_mouse_file = __FILE__) =~ s/.Util//; # .../Mouse/Util.pm -> .../Mouse.pm
$xs = eval sprintf("#line %d %s\n", __LINE__, $hack_mouse_file) . q{
+ local $^W = 0; # work around 'redefine' warning to &install_subroutines
require XSLoader;
XSLoader::load('Mouse', $VERSION);
Mouse::Util->import({ into => 'Mouse::Meta::Method::Constructor::XS' }, ':meta');
use Carp ();
use Scalar::Util ();
-use constant _MOUSE_VERBOSE => !!$ENV{MOUSE_VERBOSE};
-
# aliases as public APIs
# it must be 'require', not 'use', because Mouse::Meta::Module depends on Mouse::Util
require Mouse::Meta::Module; # for the entities of metaclass cache utilities
=head1 VERSION
-This document describes Mouse version 0.50_03
+This document describes Mouse version 0.50_09
=head1 IMPLEMENTATIONS FOR