File Coverage

lib/Web/ComposableRequest/Role/Session.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch			n/a
condition			n/a
subroutine	15	15	100.0
pod	1	1	100.0
total	55	55	100.0

package Web::ComposableRequest::Role::Session;

use namespace::autoclean;

use Web::ComposableRequest::Constants qw( TRUE );
use Web::ComposableRequest::Util      qw( add_config_role compose_class );
use Unexpected::Types                 qw( LoadableClass Object );
use Moo::Role;

requires qw( loc loc_default query_params _config _env _log );

add_config_role __PACKAGE__.'::Config';

has 'session'   => is => 'lazy', isa => Object, builder => sub {
   return $_[ 0 ]->session_class->new
      ( config  => $_[ 0 ]->_config,
        request => $_[ 0 ],
        session => $_[ 0 ]->_env->{ 'psgix.session' }, ) },
   clearer => TRUE, handles => [ 'authenticated', 'username' ];

has 'session_class' => is => 'lazy', isa => LoadableClass, builder => sub {
   my $conf = $_[ 0 ]->_config;
   compose_class( $conf->session_class, $conf->session_attr, is => 'rw' ) };

sub reset_session {
   my $self = shift; my $psgix_sess = $self->_env->{ 'psgix.session' };

   delete $psgix_sess->{ $_ } for (keys %{ $psgix_sess });

   $self->clear_session;
   return;
}

package Web::ComposableRequest::Role::Session::Config;

use namespace::autoclean;

use Web::ComposableRequest::Constants qw( FALSE );
use Unexpected::Types qw( ArrayRef CodeRef HashRef NonEmptySimpleStr
                          NonZeroPositiveInt PositiveInt );
use Moo::Role;

has 'expire_session' => is => 'lazy', isa => CodeRef,
   builder           => sub { sub {
      [ 'User [_1] session expired', $_[ 0 ]->username ] } };

has 'max_messages'   => is => 'ro', isa => NonZeroPositiveInt, default => 3;

has 'max_sess_time'  => is => 'ro', isa => PositiveInt, default => 3_600;

has 'session_attr'   => is => 'ro', isa => HashRef[ArrayRef],
   builder           => sub { {} };

has 'session_class'  => is => 'ro', isa => NonEmptySimpleStr,
   default           => 'Web::ComposableRequest::Session';

1;

__END__