File Coverage

blib/lib/Template/Plugin/Session.pm

Criterion	Covered	Total	%
statement	27	47	57.4
branch	4	16	25.0
condition	1	3	33.3
subroutine	7	10	70.0
pod	5	5	100.0
total	44	81	54.3

package Template::Plugin::Session;

use Apache::Session::Flex;
use Template::Plugin;
use vars qw( $VERSION );
use base qw( Template::Plugin );
use strict;

$VERSION = '0.01';

sub new {
	my ($class, $context, $id, @args) = @_;
	my %session;
	eval {
		tie %session, 'Apache::Session::Flex', $id, ( ref $args[0] ? $args[0] : {@args} );
	};
	$context->throw('Session',"Can't create/restore session with id '$id'") if $@;
	bless {
		_CONTEXT => $context,
		session  => \%session,
	}, $class;
}

sub get {
	my $self = shift;
	my @args = ref($_[0]) eq 'ARRAY' ? @{$_[0]} : @_;
	if ( ! @args ) {
		@args = keys %{$self->{session}};
	}
	my @ary;
	foreach ( @args ) {
		push @ary, $self->{session}->{$_};
	}
	return @ary;
}

sub set {
	my ($self, @args) = @_;
	my $config = @args && ref $args[-1] eq 'HASH' ? pop(@args) : {};
	foreach ( keys %$config ) {
		# to avoid ovverride _session_id special key
		next if /^_session_di$/;
		$self->{session}->{$_} = $config->{$_};
	}
	return '';
}

sub delete {
	my $self = shift;
	my @args = ref($_[0]) eq 'ARRAY' ? @{$_[0]} : @_;
	foreach ( @args ) {
		# to avoid ovverride _session_id special key
		next if /^_session_id$/;
		delete $self->{session}->{$_};
	}
	return '';
}

sub destroy {
	my $self = shift;
	tied(%{$self->{session}})->delete;
}

1;
__END__