[Catalyst-commits] r9057 - in trunk/Catalyst-Action-RenderView: . lib/Catalyst/Action

t0m at dev.catalyst.perl.org t0m at dev.catalyst.perl.org
Sun Jan 11 23:36:21 GMT 2009


Author: t0m
Date: 2009-01-11 23:36:21 +0000 (Sun, 11 Jan 2009)
New Revision: 9057

Modified:
   trunk/Catalyst-Action-RenderView/Changes
   trunk/Catalyst-Action-RenderView/Makefile.PL
   trunk/Catalyst-Action-RenderView/lib/Catalyst/Action/RenderView.pm
Log:
Use MRO::Compat instead of NEXT

Modified: trunk/Catalyst-Action-RenderView/Changes
===================================================================
--- trunk/Catalyst-Action-RenderView/Changes	2009-01-11 23:34:12 UTC (rev 9056)
+++ trunk/Catalyst-Action-RenderView/Changes	2009-01-11 23:36:21 UTC (rev 9057)
@@ -3,6 +3,7 @@
       instead of $c->config->{debug}.
       Config from $c->config->{debug} is deprecated, but
       still supported.
+    - Switch from NEXT to next::method
 
 0.08 2008-05-02 19:40:00
     - Add AsCGI to list of test requirements.

Modified: trunk/Catalyst-Action-RenderView/Makefile.PL
===================================================================
--- trunk/Catalyst-Action-RenderView/Makefile.PL	2009-01-11 23:34:12 UTC (rev 9056)
+++ trunk/Catalyst-Action-RenderView/Makefile.PL	2009-01-11 23:36:21 UTC (rev 9057)
@@ -10,6 +10,7 @@
 requires 'Catalyst::Runtime' => '5.70';
 requires 'Test::More';
 requires 'Data::Visitor' => '0.08';
+requires 'MRO::Compat';
 
 test_requires 'HTTP::Request::AsCGI';
 

Modified: trunk/Catalyst-Action-RenderView/lib/Catalyst/Action/RenderView.pm
===================================================================
--- trunk/Catalyst-Action-RenderView/lib/Catalyst/Action/RenderView.pm	2009-01-11 23:34:12 UTC (rev 9056)
+++ trunk/Catalyst-Action-RenderView/lib/Catalyst/Action/RenderView.pm	2009-01-11 23:36:21 UTC (rev 9057)
@@ -7,6 +7,7 @@
 
 use base 'Catalyst::Action';
 
+use MRO::Compat;
 use Data::Visitor::Callback;
 use UNIVERSAL qw/can/;
 
@@ -15,7 +16,7 @@
 sub execute {
     my $self = shift;
     my ($controller, $c ) = @_;
-    $self->NEXT::execute( @_ );
+    $self->next::method( @_ );
     
     $c->config->{'Action::RenderView'}->{ignore_classes} = 
         ( ref($c->config->{'debug'}) eq 'HASH' ? $c->config->{'debug'}->{ignore_classes} : undef )




More information about the Catalyst-commits mailing list