sub check_expired {
my ($self, $id) = @_;
- return unless $id && not $self->is_session_expired( $id );
+ return if $self->is_session_expired( $id );
return $id;
}
-sub validate_request_session_id {
- my ($self, $request) = @_;
-
- my $reqest_session_id = $self->get_request_session_id($request);
-
- defined $reqest_session_id && $reqest_session_id =~ $self->sid_validator;
+sub validate_session_id {
+ my ($self, $id) = @_;
+ $id =~ $self->sid_validator;
}
sub get_session_id {
my ($self, $request) = @_;
- (
- $self->validate_request_session_id($request)
- &&
- $self->extract( $request )
- )
+ $self->extract( $request )
||
$self->generate( $request )
}
-sub get_request_session_id {
- my ($self, $request ) = @_;
-
+sub get_session_id_from_request {
+ my ($self, $request) = @_;
$request->param( $self->session_key );
}
sub extract {
my ($self, $request) = @_;
- $self->check_expired( $self->get_request_session_id($request) );
+ my $id = $self->get_session_id_from_request( $request );
+ return unless defined $id;
+
+ $self->validate_session_id( $id )
+ &&
+ $self->check_expired( $id );
}
sub generate {
=item B<sid_validator>
-This is a regex used to validate requested session id,
+This is a regex used to validate requested session id.
=back
session. The C<$request> is expected to be a L<Plack::Request> instance
or an object with an equivalent interface.
-=item B<get_request_session_id ( $request )>
+=item B<get_session_id_from_request ( $request )>
+
+This is the method used to extract the session id from a C<$request>.
+Subclasses will often only need to override this method and the
+C<finalize> method.
+
+=item B<validate_session_id ( $session_id )>
+
+This will use the C<sid_validator> regex and confirm that the
+C<$session_id> is valid.
=item B<extract ( $request )>
$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 {