1 package Plack::Session::State::Cookie;
5 use parent 'Plack::Session::State';
7 use Plack::Util::Accessor qw[
14 sub expire_session_id {
16 $self->SUPER::expire_session_id( $id );
21 my ($self, $request) = @_;
22 $self->check_expired( ( $request->cookie( $self->session_key ) || return )->value );
26 my ($self, $id, $response) = @_;
27 $response->cookies->{ $self->session_key } = +{
29 path => ($self->path || '/'),
30 ( defined $self->domain ? ( domain => $self->domain ) : () ),
31 ( defined $self->expires ? ( expires => $self->expires ) : () ),
32 ( defined $self->secure ? ( secure => $self->secure ) : () ),
35 # clear the expires after
36 # finalization if the session
37 # has been expired - SL
38 $self->expires( undef )
39 if defined $self->expires
40 && $self->expires == 0
41 && $self->is_session_expired( $id );
52 Plack::Session::State::Cookie - Basic cookie-based session state
56 This is a subclass of L<Plack::Session::State> and implements it's
63 =item B<new ( %params )>
77 All complex software has bugs lurking in it, and this module is no
78 exception. If you find a bug please either email me, or add the bug
83 Stevan Little E<lt>stevan.little@iinteractive.comE<gt>
85 =head1 COPYRIGHT AND LICENSE
87 Copyright 2009 Infinity Interactive, Inc.
89 L<http://www.iinteractive.com>
91 This library is free software; you can redistribute it and/or modify
92 it under the same terms as Perl itself.