[Catalyst-commits] r9243 - in trunk/Catalyst-Plugin-Session-State-URI: . lib/Catalyst/Plugin/Session/State

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-02-08 06:43:12 +0000 (Sun, 08 Feb 2009)
New Revision: 9243

Modified:
   trunk/Catalyst-Plugin-Session-State-URI/Changes
   trunk/Catalyst-Plugin-Session-State-URI/Makefile.PL
   trunk/Catalyst-Plugin-Session-State-URI/lib/Catalyst/Plugin/Session/State/URI.pm
Log:
Switch to MRO::Compat

Modified: trunk/Catalyst-Plugin-Session-State-URI/Changes
===================================================================
--- trunk/Catalyst-Plugin-Session-State-URI/Changes	2009-02-08 06:38:11 UTC (rev 9242)
+++ trunk/Catalyst-Plugin-Session-State-URI/Changes	2009-02-08 06:43:12 UTC (rev 9243)
@@ -1,6 +1,7 @@
 Revision history for Perl extension Catalyst::Plugin::Session::State::URI
 
-0.08    2007-XX-XX
+0.08    2009-02-08
+        - Switch from NEXT to MRO::Compat (t0m)
         - Switch to Module::Install
         - pod fixes (RT #23749)
 

Modified: trunk/Catalyst-Plugin-Session-State-URI/Makefile.PL
===================================================================
--- trunk/Catalyst-Plugin-Session-State-URI/Makefile.PL	2009-02-08 06:38:11 UTC (rev 9242)
+++ trunk/Catalyst-Plugin-Session-State-URI/Makefile.PL	2009-02-08 06:43:12 UTC (rev 9243)
@@ -10,6 +10,7 @@
 requires 'HTML::TokeParser::Simple';
 requires 'MIME::Types';
 requires 'Test::MockObject'          => '1.01';
+requires 'MRO::Compat';
 
 auto_install;
 WriteAll;

Modified: trunk/Catalyst-Plugin-Session-State-URI/lib/Catalyst/Plugin/Session/State/URI.pm
===================================================================
--- trunk/Catalyst-Plugin-Session-State-URI/lib/Catalyst/Plugin/Session/State/URI.pm	2009-02-08 06:38:11 UTC (rev 9242)
+++ trunk/Catalyst-Plugin-Session-State-URI/lib/Catalyst/Plugin/Session/State/URI.pm	2009-02-08 06:43:12 UTC (rev 9243)
@@ -6,7 +6,7 @@
 
 use HTML::TokeParser::Simple;
 use MIME::Types;
-use NEXT;
+use MRO::Compat;
 use URI;
 use URI::Find;
 use URI::QueryParam;
@@ -17,26 +17,26 @@
 
 sub get_session_id {
     my ( $c, @args ) = @_;
-    return $c->_sessionid_from_uri || $c->NEXT::get_session_id(@args);
+    return $c->_sessionid_from_uri || $c->maybe::next::method(@args);
 }
 
 sub set_session_id {
     my ( $c, $sid, @args ) = @_;
     $c->_sessionid_to_rewrite($sid);
-    $c->NEXT::set_session_id($sid, @args);
+    $c->maybe::next::method($sid, @args);
 }
 
 sub delete_session_id {
     my ( $c, @args ) = @_;
     $c->_sessionid_from_uri(undef);
     $c->_sessionid_to_rewrite(undef);
-    $c->NEXT::delete_session_id(@args);
+    $c->maybe::next::method(@args);
 }
 
 sub setup_session {
     my $c = shift();
 
-    $c->NEXT::setup_session(@_);
+    $c->maybe::next::method(@_);
 
     my %defaults = (
         rewrite              => 1,
@@ -56,7 +56,7 @@
 
     $c->session_rewrite_if_needed;
 
-    return $c->NEXT::finalize(@_);
+    return $c->maybe::next::method(@_);
 }
 
 
@@ -223,8 +223,8 @@
     my ( $c, $path, @args ) = @_;
                 
     return $c->config->{session}{overload_uri_for}
-        ? $c->uri_with_sessionid($c->NEXT::uri_for($path, @args))
-        : $c->NEXT::uri_for($path, @args);
+        ? $c->uri_with_sessionid($c->maybe::next::method($path, @args))
+        : $c->maybe::next::method($path, @args);
 } 
 
 sub uri_with_sessionid {
@@ -321,7 +321,7 @@
 
     }
 
-    $c->NEXT::prepare_action(@_);
+    $c->maybe::next::method(@_);
 }
 
 __PACKAGE__
@@ -515,7 +515,7 @@
 =item *
 
 URIs that match C</^$base/> are appended with session data (
-C<< $c->NEXT::uri_with_sessionid >>).
+C<< $c->maybe::next::method >>).
 
 =item *