X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=c9790de327050f6ebee362a8bbcdeb0b52df14f8;hb=66e3df7a8d3d839b53f6fc3af8f4bad6fc27fefe;hp=c6b584a6cc984caa57523ea13ac0668e3aad806b;hpb=420d69e8116ad08b0fbeab3289af4df9f64d3b70;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm index c6b584a..c9790de 100644 --- a/lib/Mouse/Util.pm +++ b/lib/Mouse/Util.pm @@ -48,7 +48,7 @@ BEGIN{ }, ); - our $VERSION = '0.86'; + our $VERSION = '0.88'; my $xs = !(defined(&is_valid_class_name) || $ENV{MOUSE_PUREPERL} || $ENV{PERL_ONLY}); @@ -127,10 +127,10 @@ sub does_role{ BEGIN { my $get_linear_isa; - if ($] >= 5.009_005) { - require mro; + if (eval { require mro }) { $get_linear_isa = \&mro::get_linear_isa; - } else { + } + else { # this code is based on MRO::Compat::__get_linear_isa my $_get_linear_isa_dfs; # this recurses so it isn't pretty $_get_linear_isa_dfs = sub { @@ -388,7 +388,7 @@ Mouse::Util - Utilities for working with Mouse classes =head1 VERSION -This document describes Mouse version 0.86 +This document describes Mouse version 0.88 =head1 SYNOPSIS @@ -442,7 +442,7 @@ C or using C. =head3 C<< Mouse::Util::get_all_metaclass_names() -> (ClassNames) >> -=head2 MRO::Compat +=head2 mro (or MRO::Compat) =head3 C @@ -466,6 +466,8 @@ L L +L + L =cut