X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=1355aa7968f69939a99dd3ff8a1dbee35634cc3b;hp=685a5e05459c8593374768779e495d81f8b14ee0;hb=4c0fe06fa87e7c2c4ed1666e77ed52ae020f19d7;hpb=ce5a7699f316c9dbea62a9269c7da8af65ed75f5 diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm index 685a5e0..1355aa7 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_08'; + our $VERSION = '0.41'; my $xs = !(exists $INC{'Mouse/PurePerl.pm'} || $ENV{MOUSE_PUREPERL}); @@ -65,7 +65,6 @@ BEGIN{ *MOUSE_XS = sub(){ $xs }; } - use Carp (); use Scalar::Util (); @@ -260,7 +259,6 @@ sub load_class { sub is_class_loaded; - sub apply_all_roles { my $applicant = Scalar::Util::blessed($_[0]) ? shift # instance @@ -306,7 +304,6 @@ sub english_list { return join q{, }, @items, "and $tail"; } - # common utilities sub not_supported{ @@ -339,7 +336,6 @@ sub does :method; *does = \&does_role; # alias 1; - __END__ =head1 NAME @@ -348,7 +344,7 @@ Mouse::Util - Features, with or without their dependencies =head1 VERSION -This document describes Mouse version 0.40_08 +This document describes Mouse version 0.41 =head1 IMPLEMENTATIONS FOR @@ -394,10 +390,14 @@ C or using C. =head3 C -=head1 UTILITIES FOR MOUSE +=head1 Mouse specific utilities =head3 C +=head3 C + +=head3 C + =head1 SEE ALSO L