[Catalyst-commits] r9243 - in
trunk/Catalyst-Plugin-Session-State-URI: .
lib/Catalyst/Plugin/Session/State
t0m at dev.catalyst.perl.org
t0m at dev.catalyst.perl.org
Sun Feb 8 06:43:12 GMT 2009
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 *
More information about the Catalyst-commits
mailing list