File Coverage

lib/CGI/Session/Submitted.pm

Criterion	Covered	Total	%
statement	37	62	59.6
branch	5	18	27.7
condition	0	7	0.0
subroutine	7	10	70.0
pod	4	4	100.0
total	53	101	52.4

package CGI::Session::Submitted;
use strict;
use Carp;
use base qw(CGI::Session);
use CGI;
#use Smart::Comments '###'; # we'll use this for debug
use warnings;
#this is to get version num according to cvs
our $VERSION = sprintf "%d.%02d", q$Revision: 1.7 $ =~ /(\d+)/g;

sub run {
	my $self = shift;
	$self->{preset} = shift;
	$self->{args} = shift;

	(ref $self->{preset}) eq 'HASH' or croak('arg must be hash ref');
	my $preset = $self->{preset};

	### param_presets from Submitted.pm
	if ($self->is_new){
		### is new , setting defaults
		$self->param( $preset );
		### ok, assuring cookie
		$self->_assure_cookie unless $self->{args}->{nocookie}; # will redirect and exit.
		 # just to make a point
	}

	# make sure all of the params we want *are* there

	for ( keys %{$preset} ){
		unless ( $self->param($_) ){
			$self->param($_ => $preset->{$_});
		}
	}

	### saving params from cgi

	$self->save_param($self->query, [keys %{$preset}] ); # save these params if they any of them came in

	### loading params from session in to cgi

	$self->load_param($self->query, [keys %{$preset}] ); # load all these query params from session storage  to cgi object

	return $self->query;
}

sub session_to_tmpl {
	my $self= shift;
	my $tmpl = shift; $tmpl or croak('is this an HTML::Template object?');

	for ($self->get_presets){
		my $key = $_;
		my $val = $self->param($key);
		$val ||=0;
		$tmpl->param($key => $val);
	}
	return $tmpl;
}

sub query_to_tmpl {
	my $self = shift;
	my $tmpl = shift; $tmpl or croak('is this an HTML::Template object?');

	for ($self->query->param){
		my $key = $_;
		my $val = $self->query->param($key);
		$val ||=0;
		$tmpl->param($key => $val);
	}

	return $tmpl;
}

sub get_presets {
	my $self = shift;
	(ref $self->{preset}) eq 'HASH' or croak('arg must be hash ref');
	my @p = sort keys %{$self->{preset}};
	return \@p;
}

sub _assure_cookie {
	my $self = shift;
	$self->is_new or return 1;

	my $redirect = shift;
	$redirect ||= $ENV{SCRIPT_NAME}; $redirect or croak('CGI::Session::Submitted::_assure_coooie() error: missing $ENV{SCRIPT_NAME} - where to redirect to?');

	print $self->query->redirect(
					-uri			=> $redirect,
					-cookie		=>
						$self->query->cookie(
							-name		=> $self->name,
							-value	=> $self->id,
					)
	);
	exit(0);
}


1;
__END__