File Coverage

blib/lib/CGI/Session/Driver.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch	3	6	50.0
condition			n/a
subroutine	4	10	40.0
pod	5	7	71.4
total	27	48	56.2

package CGI::Session::Driver;

# $Id: Driver.pm 216 2005-09-01 10:52:26Z sherzodr $

use strict;
#use diagnostics;

use Carp;
use CGI::Session::ErrorHandler;

$CGI::Session::Driver::VERSION = "4.0";
@CGI::Session::Driver::ISA     = qw(CGI::Session::ErrorHandler);

sub new {
    my $class = shift;
    my ($args) = @_;

    if ( $args ) {
        unless ( ref $args ) {
            croak "Invalid argument type passed to driver: " . Dumper($args);
        }
    } else {
        $args = {};
    }

    my $self = bless ($args, $class);
    return $self->init ? $self : undef;
}

sub init { 1 }

sub retrieve {
    croak "retrieve(): " . ref($_[0]) . " failed to implement this method!";
}

sub store {
    croak "store(): " . ref($_[0]) . " failed to implement this method!";
}

sub remove {
    croak "remove(): " . ref($_[0]) . " failed to implement this method!";
}

sub traverse {
    croak "traverse(): " . ref($_[0]) . " failed to implement this method!";
}

sub dump {
    require Data::Dumper;
    my $d = Data::Dumper->new([$_[0]], [ref $_[0]]);
    return $d->Dump;
}


1;

__END__;