[Bast-commits] r9830 - in Class-Accessor-Grouped/trunk: . lib/Class/Accessor

[arcanez at dev.catalyst.perl.org]

Author: arcanez
Date: 2011-02-01 19:51:12 +0000 (Tue, 01 Feb 2011)
New Revision: 9830

Modified:
   Class-Accessor-Grouped/trunk/Makefile.PL
   Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm
Log:
dep on MRO::Compat only if we need to

Modified: Class-Accessor-Grouped/trunk/Makefile.PL
===================================================================
--- Class-Accessor-Grouped/trunk/Makefile.PL	2011-01-31 17:49:00 UTC (rev 9829)
+++ Class-Accessor-Grouped/trunk/Makefile.PL	2011-02-01 19:51:12 UTC (rev 9830)
@@ -10,7 +10,7 @@
 
 requires 'Carp';
 requires 'Scalar::Util';
-requires 'MRO::Compat';
+requires 'MRO::Compat' if $] < 5.009_005;
 requires 'Class::Inspector';
 
 if (can_cc or $Module::Install::AUTHOR) {
@@ -36,10 +36,9 @@
 'http://dev.catalyst.perl.org/repos/bast/Class-Accessor-Grouped/trunk';
 
 WriteAll;
-use Data::Dumper;
 if ($Module::Install::AUTHOR) {
   @{Meta->{values}{requires}} = grep
-    { $_->[0] !~ /^ (?: Class\:\:XSAccessor | Sub\:\:Name ) $/x }
+    { $_->[0] !~ /^ (?: Class\:\:XSAccessor | Sub\:\:Name | MRO\:\:Compat ) $/x }
     @{Meta->{values}{requires}}
   ;
   print "Regenerating META with XS requires excluded\n";

Modified: Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm
===================================================================
--- Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm	2011-01-31 17:49:00 UTC (rev 9829)
+++ Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm	2011-02-01 19:51:12 UTC (rev 9830)
@@ -3,8 +3,16 @@
 use warnings;
 use Carp ();
 use Scalar::Util ();
-use MRO::Compat;
 
+BEGIN {
+  if ($] < 5.009_005) {
+    require MRO::Compat;
+  }
+  else {
+    require mro;
+  }
+}
+
 our $VERSION = '0.10002';
 $VERSION = eval $VERSION if $VERSION =~ /_/; # numify for warning-free dev releases