File Coverage

blib/lib/CGI/Lazy/Utility.pm

Criterion	Covered	Total	%
statement	12	16	75.0
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	3	3	100.0
total	19	25	76.0

package CGI::Lazy::Utility;

use strict;

use CGI::Lazy::Globals;
use CGI::Lazy::Utility::Debug;

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

	return CGI::Lazy::Utility::Debug->new($self->q);
}

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

	return $self->{_q};
}

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

	return bless {_q => $q}, $class;
}

1

__END__