File Coverage

blib/lib/HTTP/Session/State/Test.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch	2	4	50.0
condition			n/a
subroutine	5	5	100.0
pod	3	3	100.0
total	23	26	88.4

package HTTP::Session::State::Test;
use strict;
use HTTP::Session::State::Base;

__PACKAGE__->mk_ro_accessors(qw/session_id/);

sub new {
    my $class = shift;
    my %args = ref($_[0]) ? %{$_[0]} : @_;
    # check required parameters
    for (qw/session_id/) {
        Carp::croak "missing parameter $_" unless $args{$_};
    }
    # set default values
    bless {%args}, $class;
}

sub get_session_id {
    my $self = shift;
    return $self->session_id;
}
sub response_filter { }

1;
__END__