CGI::Lazy::CookieMonster - CGI::Lazy::CookieMonster documentation

CGI-Lazy documentation Contained in the CGI-Lazy distribution.

Index

Code Index:

LEGAL

Top

#===========================================================================

Copyright (C) 2008 by Nik Ogura. All rights reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Bug reports and comments to nik.ogura@gmail.com.

#===========================================================================

NAME

Top

CGI::Lazy::CookieMonster

SYNOPSIS

Top

	use CGI::Lazy::CookieMonster;

	my $cm = CGI::Lazy::CookieMonster->new;

	$cm->getCookie($cookieName);

DESCRIPTION

Top

Module for handling http cookies.

Come on, when was I gonna find another opportunity for a module called 'CookieMonster'?

METHODS

Top

Retrieves cookie.

name of cookie.

Dev's have to have fun too. Returns true if $cookie. Will probably mod it so it serves some better function.

some value

q ()

Returns Lazy object

new ( q )

Constructor. Returns CookieMonster object.

q

CGI::Lazy object.

CGI-Lazy documentation Contained in the CGI-Lazy distribution. 
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__