[Catalyst-commits] r10584 - in trunk/Catalyst-Model-DBI: . lib/Catalyst/Model

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-06-18 14:32:08 +0000 (Thu, 18 Jun 2009)
New Revision: 10584

Modified:
   trunk/Catalyst-Model-DBI/Changes
   trunk/Catalyst-Model-DBI/Makefile.PL
   trunk/Catalyst-Model-DBI/lib/Catalyst/Model/DBI.pm
Log:
Change from NEXT to MRO::Compat

Modified: trunk/Catalyst-Model-DBI/Changes
===================================================================
--- trunk/Catalyst-Model-DBI/Changes	2009-06-18 10:47:36 UTC (rev 10583)
+++ trunk/Catalyst-Model-DBI/Changes	2009-06-18 14:32:08 UTC (rev 10584)
@@ -1,4 +1,5 @@
 Revision history for Perl extension Catalyst::Model::DBI.
+    - Switch from NEXT to next::method
 0.20  Sun Dec 07 17:36:00 2008 
 	- fixed issue: http://rt.cpan.org/Public/Bug/Display.html?id=38121
 	- fixed issue: http://rt.cpan.org/Public/Bug/Display.html?id=39884

Modified: trunk/Catalyst-Model-DBI/Makefile.PL
===================================================================
--- trunk/Catalyst-Model-DBI/Makefile.PL	2009-06-18 10:47:36 UTC (rev 10583)
+++ trunk/Catalyst-Model-DBI/Makefile.PL	2009-06-18 14:32:08 UTC (rev 10584)
@@ -6,6 +6,7 @@
 	PREREQ_PM => {
 		Catalyst	=> '5.00',
 		DBI		=> 0,
+        'MRO::Compat' => 0,
 	},
 	VERSION_FROM => 'lib/Catalyst/Model/DBI.pm'
 );

Modified: trunk/Catalyst-Model-DBI/lib/Catalyst/Model/DBI.pm
===================================================================
--- trunk/Catalyst-Model-DBI/lib/Catalyst/Model/DBI.pm	2009-06-18 10:47:36 UTC (rev 10583)
+++ trunk/Catalyst-Model-DBI/lib/Catalyst/Model/DBI.pm	2009-06-18 14:32:08 UTC (rev 10584)
@@ -2,7 +2,7 @@
 
 use strict;
 use base 'Catalyst::Model';
-use NEXT;
+use MRO::Compat;
 use DBI;
 
 our $VERSION = '0.20';
@@ -52,7 +52,7 @@
 sub new {
 	my $self = shift;
 	my ( $c ) = @_;
-	$self = $self->NEXT::new( @_ );
+	$self = $self->next::method( @_ );
 	$self->{namespace}               ||= ref $self;
 	$self->{additional_base_classes} ||= ();
 	$self->{log} = $c->log;