X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=37b615a907993a430bf792feed7ad13a40456304;hp=acac4dde214c7fe69a8f50f6f2eb18211101c1b2;hb=a4cbb3cb944aa43521dfa69a9f04b206c6b7a6ea;hpb=cf59b7151d2b476a74b5abd84af37770ad4cf387 diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm index acac4dd..37b615a 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.40_09'; + our $VERSION = '0.44'; my $xs = !(exists $INC{'Mouse/PurePerl.pm'} || $ENV{MOUSE_PUREPERL}); @@ -140,13 +140,14 @@ BEGIN { # See also MRO::Compat::__get_linear_isa. $get_linear_isa = sub ($;$){ my($classname, $type) = @_; + package # hide from PAUSE + Class::C3; if(!defined $type){ - package Class::C3; our %MRO; $type = exists $MRO{$classname} ? 'c3' : 'dfs'; } return $type eq 'c3' - ? [Class::C3::calculateMRO($classname)] + ? [calculateMRO($classname)] : $_get_linear_isa_dfs->($classname); }; } @@ -344,7 +345,7 @@ Mouse::Util - Features, with or without their dependencies =head1 VERSION -This document describes Mouse version 0.40_09 +This document describes Mouse version 0.44 =head1 IMPLEMENTATIONS FOR