File Coverage

blib/lib/CGI/Lazy/ErrorHandler.pm

Criterion	Covered	Total	%
statement	11	120	9.1
branch	0	26	0.0
condition			n/a
subroutine	3	21	14.2
pod	2	19	10.5
total	16	186	8.6

package CGI::Lazy::ErrorHandler;

use strict;

use CGI::Lazy::Globals;

#----------------------------------------------------------------------------------------
sub badConfig {
	my $self = shift;
	my $filename = shift;

	my $msg = "Couldn't parse config file $filename: $@\n";

	print STDERR $msg unless $self->silent;

	push @{$self->{_errors}}, $msg;

	return;
}

#----------------------------------------------------------------------------------------
sub badSession {
	my $self = shift;
	my $id = shift;

	my $msg = "Bad Session ID : $id\n";

	print STDERR $msg unless $self->silent;

	push @{$self->{_errors}}, $msg;

	return;
}

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

	my $msg = "Bad Session Config.  Please check your config file or hash in the Session->{expires} key.\n";

	print STDERR $msg unless $self->silent;

	push @{$self->{_errors}}, $msg;

	return;
}

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

	return $self->q->config;
}


#----------------------------------------------------------------------------------------
sub couldntOpenDebugFile {
	my $self = shift;
	my $filename = shift;
	my $error = shift;

	my $msg = "Couldn't open Debugging Log file /tmp/$filename: $error\n";

	print STDERR $msg unless $self->silent;

	push @{$self->{_errors}}, $msg;

	return;
}

#----------------------------------------------------------------------------------------
sub couldntOpenCssFile {
	my $self = shift;
	my $docroot = shift;
	my $cssdir = shift;
	my $file = shift;
	my $error = shift;

	my $msg = "Couldn't open CSS file $docroot$cssdir/$file: $error\n";

	print STDERR $msg unless $self->silent;

	push @{$self->{_errors}}, $msg;

	return;
}

#----------------------------------------------------------------------------------------
sub couldntOpenJsFile {
	my $self = shift;
	my $docroot = shift;
	my $jsdir = shift;
	my $file = shift;
	my $error = shift;

	my $msg = "Couldn't open JS file $docroot$jsdir/$file: $error\n";

	print STDERR $msg unless $self->silent;

	push @{$self->{_errors}}, $msg;

	return;
}

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

	my $msg = "Database connection failed: $@\n";

	print STDERR $msg unless $self->silent;

	push @{$self->{_errors}}, $msg;

	return;
}

#----------------------------------------------------------------------------------------
sub dbError {
	my $self = shift;
	my $pkg = shift;
	my $file = shift;
	my $line = shift;
	my $query = shift;

	my $msg = "Database operation failed in $file calling $pkg at line $line :$@\ncalling: $query\n";

	print STDERR $msg unless $self->silent;

	push @{$self->{_errors}}, $msg;

	return;
}

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

	my ($pkg, $file, $line) = caller;

	my $msg = "Database lookup return more than a single value in $pkg called by $file at line $line\n";

	print STDERR $msg unless $self->silent;

	push @{$self->{_errors}}, $msg;

	return;
}

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

	return $self->{_errors};
}

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

	return @{$self->{_errors}};
}

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

	my ($pkg, $file, $line) = caller;

	my $msg = "DB get (get, getarray, gethashlist) called with something other than an array reference in $pkg called by $file at line $line.  That won't fly.\n";

	print STDERR $msg unless $self->silent;

	push @{$self->{_errors}}, $msg;

	return;
}

#----------------------------------------------------------------------------------------
sub noConfig {
	my $self = shift;
	my $filename = shift;

	my $msg = "Couldn't open config file $filename : $@\n";

	print STDERR $msg unless $self->silent;

	push @{$self->{_errors}}, $msg;

	return;
}

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

	my $self = {
		_q 	=> $q,
		_errors	=> [],
		_silent	=> $q->vars->{silent},
	};

	bless $self, $class;

	return $self;
}

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

	return $self->{_q};
}

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

	my $msg = "Template Creation Error: $@\n";

	print STDERR $msg unless $self->silent;

	push @{$self->{_errors}}, $msg ;

	return;
}

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

	return $self->{_silent};
}

#----------------------------------------------------------------------------------------
sub tmplParamError {
	my $self = shift;
	my $template = shift;

	my $msg = "Template Parameter Error in $template: $@\n";

	print STDERR $msg unless $self->silent;

	push @{$self->{_errors}}, $msg;

	return;
}

1

__END__