File Coverage

blib/lib/Session.pm

Criterion	Covered	Total	%
statement	25	26	96.1
branch	4	6	66.6
condition			n/a
subroutine	12	13	92.3
pod	10	10	100.0
total	51	55	92.7

package Session;

use strict;
use Apache::Session::Flex;
use base qw(Apache::Session::Flex);

$Session::VERSION = 0.01;

sub new
{
    my($class, $id, @args) = @_;
    my $self;
    eval
    {
        $self = $class->TIEHASH($id, (ref $args[0] ? $args[0] : {@args}));
    };
    Session->error($@) if $@;
    return $self;
}

sub session_id {shift->FETCH('_session_id')}
sub get {shift->FETCH(@_)}
sub set {shift->STORE(@_)}
sub remove {shift->DELETE(@_)}
sub clear {shift->CLEAR(@_)}
sub exists {shift->EXISTS(@_)}

sub keys {grep $_ ne '_session_id', keys %{shift->{data}}}
sub release {undef($_[0])}

sub error
{
    $Session::ERROR = $_[1] if defined $_[1];
    return $Session::ERROR;
}

1;

__END__