From: Shawn M Moore Date: Sun, 28 Sep 2008 03:12:58 +0000 (+0000) Subject: use Mouse::Util 'get_linear_isa' instead of MRO::Compat directly X-Git-Tag: 0.19~215 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=00ca1c62fb631cb9b01962299f5e72b20b8063ec use Mouse::Util 'get_linear_isa' instead of MRO::Compat directly --- diff --git a/Makefile.PL b/Makefile.PL index 95deb65..07cf38c 100755 --- a/Makefile.PL +++ b/Makefile.PL @@ -4,7 +4,6 @@ name 'Mouse'; all_from 'lib/Mouse.pm'; requires 'Scalar::Util'; -requires 'MRO::Compat'; requires 'Class::Method::Modifiers' => '1.01'; build_requires 'Test::More'; diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm index 796872a..ee7d5dc 100644 --- a/lib/Mouse/Meta/Class.pm +++ b/lib/Mouse/Meta/Class.pm @@ -3,10 +3,10 @@ package Mouse::Meta::Class; use strict; use warnings; +use Mouse::Util 'get_linear_isa'; use Scalar::Util 'blessed'; use Carp 'confess'; -use MRO::Compat; use Class::Method::Modifiers (); do { @@ -94,7 +94,7 @@ sub get_attribute_map { $_[0]->{attributes} } sub has_attribute { exists $_[0]->{attributes}->{$_[1]} } sub get_attribute { $_[0]->{attributes}->{$_[1]} } -sub linearized_isa { @{ mro::get_linear_isa($_[0]->name) } } +sub linearized_isa { @{ get_linear_isa($_[0]->name) } } sub clone_object { my $class = shift;