File Coverage

blib/lib/CGI/Lazy/CookieMonster.pm

Criterion	Covered	Total	%
statement	6	18	33.3
branch	0	2	0.0
condition			n/a
subroutine	2	6	33.3
pod	4	4	100.0
total	12	30	40.0

package CGI::Lazy::CookieMonster;

use strict;

use CGI::Lazy::Globals;

#-----------------------------------------------------------------------------------------------------------
sub getCookie {
	my $self = shift;
	my $cookie = shift;

	return $self->q->cookie($cookie);
}

#-----------------------------------------------------------------------------------------------------------
sub goodEnoughForMe {
	my $self = shift;
	my $cookie = shift;

	return $cookie ? TRUE : FALSE;
}

#-----------------------------------------------------------------------------------------------------------
sub q {
	my $self = shift;

	return $self->{_q};
}

#-----------------------------------------------------------------------------------------------------------
sub new {
	my $class = shift;
	my $q = shift;

	my $self = {_q => $q};

	bless $self, $class;
}

1

__END__