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;