File Coverage

blib/lib/Serengeti/Session.pm

Criterion	Covered	Total	%
statement	15	17	88.2
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	21	25	84.0

package Serengeti::Session;

use strict;
use warnings;

use Serengeti::Session::Persistent;

use accessors::ro qw(stash);

sub new {
    my ($pkg, $args) = @_;

    if (exists $args->{name}) {
        return Serengeti::Session::Persistent->new($args);
    }

    my $self = bless { stash => {}, }, $pkg;

    return $self;
}

1;