From: Tomas Doran <bobtfish@bobtfish.net>
Date: Wed, 4 Nov 2009 23:50:21 +0000 (+0000)
Subject: Switch from NEXT to MRO::Compat
X-Git-Tag: v0.07~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Plugin-RequireSSL.git;a=commitdiff_plain;h=962fe7efe51dddbbdc9d2918e1a8b2ed53a32843

Switch from NEXT to MRO::Compat
---

diff --git a/Makefile.PL b/Makefile.PL
index 2a24779..542588c 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -16,7 +16,7 @@ readme_from 'lib/Catalyst/Plugin/RequireSSL.pm';
 auto_set_repository;
 
 requires 'Catalyst' => '5.23';
-requires 'NEXT';
+requires 'MRO::Compat';
 
 test_requires 'Test::More';
 test_requires 'Data::Dumper';
diff --git a/lib/Catalyst/Plugin/RequireSSL.pm b/lib/Catalyst/Plugin/RequireSSL.pm
index e737237..1b33bb7 100644
--- a/lib/Catalyst/Plugin/RequireSSL.pm
+++ b/lib/Catalyst/Plugin/RequireSSL.pm
@@ -2,7 +2,7 @@ package Catalyst::Plugin::RequireSSL;
 
 use strict;
 use base qw/Class::Accessor::Fast/;
-use NEXT;
+use MRO::Compat;
 
 our $VERSION = '0.07';
 
@@ -37,7 +37,7 @@ sub finalize {
     
     # 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 @@ sub finalize {
         $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