From: Florian Ragwitz Date: Wed, 18 Mar 2009 19:02:07 +0000 (+0000) Subject: Use MRO::Compat instead of Class::C3 directly. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f507947b537abfbd940706b12d71f89aa2b23ff;p=dbsrgits%2FDBIx-Class-Historic.git Use MRO::Compat instead of Class::C3 directly. --- diff --git a/Makefile.PL b/Makefile.PL index f8cbe67..887bb17 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -13,7 +13,7 @@ requires 'Data::Page' => 2.00; requires 'Scalar::Util' => 0; requires 'SQL::Abstract' => 1.49; requires 'SQL::Abstract::Limit' => 0.13; -requires 'Class::C3' => 0.20; +requires 'MRO::Compat' => 0; requires 'Class::C3::Componentised' => 1.0003; requires 'Storable' => 0; requires 'Carp::Clan' => 0; diff --git a/t/04dont_break_c3.t b/t/04dont_break_c3.t index 5869869..d5cb5d1 100644 --- a/t/04dont_break_c3.t +++ b/t/04dont_break_c3.t @@ -4,6 +4,7 @@ use strict; use Test::More tests => 2; +use MRO::Compat; { package AAA; @@ -26,8 +27,8 @@ use base 'AAA'; __PACKAGE__->inject_base( __PACKAGE__, 'DBIx::Class::Core' ); } -eval { Class::C3::calculateMRO('BBB'); }; +eval { mro::get_linear_isa('BBB'); }; ok (! $@, "Correctly skipped injecting a direct parent of class BBB"); -eval { Class::C3::calculateMRO('CCC'); }; +eval { mro::get_linear_isa('CCC'); }; ok (! $@, "Correctly skipped injecting an indirect parent of class BBB");