[Catalyst-commits] r11094 - in Catalyst-Model-XML-Feed/trunk: . lib/Catalyst/Model/XML

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-08-10 07:00:16 +0000 (Mon, 10 Aug 2009)
New Revision: 11094

Modified:
   Catalyst-Model-XML-Feed/trunk/Makefile.PL
   Catalyst-Model-XML-Feed/trunk/lib/Catalyst/Model/XML/Feed.pm
Log:
s/NEXT/MRO::Compat/g

Modified: Catalyst-Model-XML-Feed/trunk/Makefile.PL
===================================================================
--- Catalyst-Model-XML-Feed/trunk/Makefile.PL	2009-08-10 07:00:04 UTC (rev 11093)
+++ Catalyst-Model-XML-Feed/trunk/Makefile.PL	2009-08-10 07:00:16 UTC (rev 11094)
@@ -12,7 +12,7 @@
 		  'Catalyst::Model' => 0,
 		  'XML::Feed'       => '0.11',
 		  'Test::More'      => 0,
-		  'NEXT'            => 0,
+		  'MRO::Compat'     => 0,
 		  'Carp'            => 0,
 		  'URI'             => 0,
 		  'Class::Accessor' => 0,

Modified: Catalyst-Model-XML-Feed/trunk/lib/Catalyst/Model/XML/Feed.pm
===================================================================
--- Catalyst-Model-XML-Feed/trunk/lib/Catalyst/Model/XML/Feed.pm	2009-08-10 07:00:04 UTC (rev 11093)
+++ Catalyst-Model-XML-Feed/trunk/lib/Catalyst/Model/XML/Feed.pm	2009-08-10 07:00:16 UTC (rev 11094)
@@ -6,7 +6,7 @@
 use base qw(Catalyst::Model Class::Accessor);
 use Carp;
 use XML::Feed;
-use NEXT;
+use MRO::Compat;
 use URI;
 use Catalyst::Model::XML::Feed::Item;
 
@@ -105,7 +105,7 @@
 
 sub new {
     my $self = shift;
-    $self = $self->NEXT::new(@_);
+    $self = $self->next::method(@_);
     my @in_feeds = eval { @{$self->feeds} };
     $self->feeds({});