[Catalyst-commits] r11759 - in Catalyst-Plugin-RequireSSL/trunk: . lib/Catalyst/Plugin

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-11-04 23:50:21 +0000 (Wed, 04 Nov 2009)
New Revision: 11759

Modified:
   Catalyst-Plugin-RequireSSL/trunk/Makefile.PL
   Catalyst-Plugin-RequireSSL/trunk/lib/Catalyst/Plugin/RequireSSL.pm
Log:
Switch from NEXT to MRO::Compat

Modified: Catalyst-Plugin-RequireSSL/trunk/Makefile.PL
===================================================================
--- Catalyst-Plugin-RequireSSL/trunk/Makefile.PL	2009-11-04 23:40:25 UTC (rev 11758)
+++ Catalyst-Plugin-RequireSSL/trunk/Makefile.PL	2009-11-04 23:50:21 UTC (rev 11759)
@@ -16,7 +16,7 @@
 auto_set_repository;
 
 requires 'Catalyst' => '5.23';
-requires 'NEXT';
+requires 'MRO::Compat';
 
 test_requires 'Test::More';
 test_requires 'Data::Dumper';

Modified: Catalyst-Plugin-RequireSSL/trunk/lib/Catalyst/Plugin/RequireSSL.pm
===================================================================
--- Catalyst-Plugin-RequireSSL/trunk/lib/Catalyst/Plugin/RequireSSL.pm	2009-11-04 23:40:25 UTC (rev 11758)
+++ Catalyst-Plugin-RequireSSL/trunk/lib/Catalyst/Plugin/RequireSSL.pm	2009-11-04 23:50:21 UTC (rev 11759)
@@ -2,7 +2,7 @@
 
 use strict;
 use base qw/Class::Accessor::Fast/;
-use NEXT;
+use MRO::Compat;
 
 our $VERSION = '0.07';
 
@@ -37,7 +37,7 @@
     
     # Do not redirect static files (only works with Static::Simple)
     if ( $c->isa( "Catalyst::Plugin::Static::Simple" ) ) {
-        return $c->NEXT::finalize(@_) if $c->_static_file;
+        return $c->next::method(@_) if $c->_static_file;
     }
     
     # redirect back to non-SSL mode
@@ -61,13 +61,13 @@
         $c->res->body( '' );
     }
 
-    return $c->NEXT::finalize(@_);
+    return $c->next::method(@_);
 }
 
 sub setup {
     my $c = shift;
 
-    $c->NEXT::setup(@_);
+    $c->next::method(@_);
 
     # disable the plugin when running under certain engines which don't
     # support SSL