[Bast-commits] r5768 - in DBIx-Class/0.08/trunk: . t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-03-18 19:02:07 +0000 (Wed, 18 Mar 2009)
New Revision: 5768

Modified:
   DBIx-Class/0.08/trunk/Makefile.PL
   DBIx-Class/0.08/trunk/t/04dont_break_c3.t
Log:
Use MRO::Compat instead of Class::C3 directly.

Modified: DBIx-Class/0.08/trunk/Makefile.PL
===================================================================
--- DBIx-Class/0.08/trunk/Makefile.PL	2009-03-18 18:44:41 UTC (rev 5767)
+++ DBIx-Class/0.08/trunk/Makefile.PL	2009-03-18 19:02:07 UTC (rev 5768)
@@ -13,7 +13,7 @@
 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;

Modified: DBIx-Class/0.08/trunk/t/04dont_break_c3.t
===================================================================
--- DBIx-Class/0.08/trunk/t/04dont_break_c3.t	2009-03-18 18:44:41 UTC (rev 5767)
+++ DBIx-Class/0.08/trunk/t/04dont_break_c3.t	2009-03-18 19:02:07 UTC (rev 5768)
@@ -4,6 +4,7 @@
 
 use strict;
 use Test::More tests => 2;
+use MRO::Compat;
 
 {
 package AAA;
@@ -26,8 +27,8 @@
 __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");