use strict;
use warnings;
-use NEXT;
+use MRO::Compat;
use Catalyst::Utils ();
-our $VERSION = "0.10";
+our $VERSION = "0.11";
BEGIN { __PACKAGE__->mk_accessors(qw/_deleted_session_id/) }
sub setup_session {
my $c = shift;
- $c->NEXT::setup_session(@_);
+ $c->maybe::next::method(@_);
$c->config->{session}{cookie_name}
||= Catalyst::Utils::appprefix($c) . '_session';
$c->update_session_cookie( $c->make_session_cookie( $sid ) );
}
- $c->NEXT::extend_session_id( $sid, $expires );
+ $c->maybe::next::method( $sid, $expires );
}
sub set_session_id {
$c->update_session_cookie( $c->make_session_cookie( $sid ) );
- return $c->NEXT::set_session_id($sid);
+ return $c->maybe::next::method($sid);
}
sub update_session_cookie {
sub calc_expiry { # compat
my $c = shift;
- $c->NEXT::calc_expiry( @_ ) || $c->calculate_session_cookie_expires( @_ );
+ $c->maybe::next::method( @_ ) || $c->calculate_session_cookie_expires( @_ );
}
sub calculate_session_cookie_expires {
my $c = shift;
my $cfg = $c->config->{session};
- my $value = $c->NEXT::calculate_session_cookie_expires(@_);
+ my $value = $c->maybe::next::method(@_);
return $value if $value;
if ( exists $cfg->{cookie_expires} ) {
return $sid if $sid;
}
- $c->NEXT::get_session_id(@_);
+ $c->maybe::next::method(@_);
}
sub delete_session_id {
$c->update_session_cookie( $c->make_session_cookie( $sid, expires => 0 ) );
- $c->NEXT::delete_session_id($sid);
+ $c->maybe::next::method($sid);
}
__PACKAGE__