use namespace::clean -except => 'meta';
-our $VERSION = '0.33';
+our $VERSION = '0.34';
$VERSION = eval $VERSION;
my @session_data_accessors; # used in delete_session
if ( defined( my $expires = $c->_extended_session_expires ) ) {
return $expires;
} elsif ( defined( $expires = $c->_load_session_expires ) ) {
- return $c->extend_session_expires( $expires );
+ return $c->calculate_initial_session_expires;
} else {
return 0;
}
sub calculate_extended_session_expires {
my ( $c, $prev ) = @_;
- $c->calculate_initial_session_expires;
+ return ( time() + $prev );
}
sub reset_session_expires {