File Coverage

blib/lib/OpenFrame/WebApp/Session/Factory.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

=head1 NAME

OpenFrame::WebApp::Session::Factory - a factory for various types of session
wrappers.

=head1 SYNOPSIS

  use OpenFrame::WebApp::Session::Factory;

  my $sfactory = new OpenFrame::WebApp::Session::Factory()
    ->type( 'file_cache' )
    ->expiry( $period );  # optional

  my $session = $sfactory->new_session( @args );
  my $session = $sfactory->fetch_session( $id );

=cut

package OpenFrame::WebApp::Session::Factory;

use strict;
use warnings::register;

use OpenFrame::WebApp::Session;

our $VERSION = (split(/ /, '$Revision: 1.4 $'))[1];

use base qw ( OpenFrame::WebApp::Factory );

sub expiry {
    my $self = shift;
    if (@_) {
	$self->{session_expiry} = shift;
	return $self;
    } else {
	return $self->{session_expiry};
    }
}

sub get_types_class {
    my $self = shift;
    return OpenFrame::WebApp::Session->types->{$self->type};
}

sub new_session {
    my $self = shift;
    my $sess = $self->new_object();
    $sess->expiry( $self->expiry ) if ($self->expiry);
    return $sess;
}

sub fetch_session {
    my $self = shift;
    my $id   = shift;
    $self->load_types_class->fetch( $id );
}


1;

__END__