From: Shawn M Moore Date: Tue, 10 Feb 2009 18:45:53 +0000 (+0000) Subject: Load mro directly if Perl is recent enough (Nicholas Clark) X-Git-Tag: 0.19~29 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=388b8ebd183c7e01a98401558e45837b20569802;hp=d8edb5a010785f385821b245d771074ce426cdf5 Load mro directly if Perl is recent enough (Nicholas Clark) --- diff --git a/Changes b/Changes index d2bf576..4f7561b 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,8 @@ Revision history for Mouse +0.17 + * Load mro directly if Perl is recent enough (Nicholas Clark) + 0.16 Mon Feb 9 20:56:27 2009 * Implement get_all_method_names diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm index dc8c27a..d8b93e2 100644 --- a/lib/Mouse/Util.pm +++ b/lib/Mouse/Util.pm @@ -14,6 +14,7 @@ our %EXPORT_TAGS = ( BEGIN { my $impl; if ($] >= 5.009_005) { + require mro; $impl = \&mro::get_linear_isa; } else { my $loaded = do {