use strict;
use warnings;
+our $VERSION = '0.01';
+our $AUTHORITY = 'cpan:STEVAN';
+
use parent 'Plack::Session::State';
use Plack::Util::Accessor qw[
$self->expires( 0 );
}
-sub get_request_session_id {
- my ($self, $request ) = @_;
- ($request->cookie( $self->session_key ) || return )->value;
-}
-
-sub extract {
+sub get_session_id_from_request {
my ($self, $request) = @_;
- $self->check_expired( $self->get_request_session_id($request) || return );
+ ( $request->cookie( $self->session_key ) || return )->value;
}
sub finalize {