File Coverage

blib/lib/Error/Pure.pm

Criterion	Covered	Total	%
statement	32	37	86.4
branch	7	10	70.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	47	55	85.4

package Error::Pure;

use base qw(Exporter);
use strict;
use warnings;

use English qw(-no_match_vars);
use Error::Pure::Utils qw();
use Readonly;

# Constants.
Readonly::Array our @EXPORT_OK => qw(err);
Readonly::Scalar my $TYPE_DEFAULT => 'Die';
Readonly::Scalar my $LEVEL_DEFAULT => 4;

our $VERSION = 0.31;

# Type of error.
our $TYPE;

# Level for this class.
our $LEVEL = $LEVEL_DEFAULT;

# Process error.
sub err {
	my @msg = @_;
	$Error::Pure::Utils::LEVEL = $LEVEL;
	my $class;
	if (defined $TYPE) {
		$class = 'Error::Pure::'.$TYPE;
	} elsif ($ENV{'ERROR_PURE_TYPE'}) {
		$class = 'Error::Pure::'.
			$ENV{'ERROR_PURE_TYPE'};
	} else {
		$class = 'Error::Pure::'.$TYPE_DEFAULT;
	}
	eval "require $class";
	if ($EVAL_ERROR) {

		# Switch to default, module doesn't exist.
		$class = 'Error::Pure::'.$TYPE_DEFAULT;
		eval "require $class";
		if ($EVAL_ERROR) {
			my $err = $EVAL_ERROR;
			$err =~ s/\ at.*$//ms;
			die $err;
		}
	}
	eval $class.'::err @msg';
	if ($EVAL_ERROR) {
		die $EVAL_ERROR;
	}
	return;
}

1;

__END__