bucky2/lib/Bucky/Session.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

package Bucky::Session;

use base 'Bucky';

use CGI;

sub param
	{
	my ($self, $name) = @_;
	return unless $name;
	return $self->q->param($name);
	}
sub q
	{
	my ($self) = @_;
	$self->{'_q'} ||= new CGI;
	return $self->{'_q'};
	}
1;