File Coverage

lib/Graphics/Toolkit/Color/Error.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	12	14	85.7
condition	11	12	91.6
subroutine	6	6	100.0
pod	0	2	0.0
total	55	60	91.6

# central hub of error handling

package Graphics::Toolkit::Color::Error;

use v5.12;
use warnings;
use Exporter;
our @ISA       = qw(Exporter);
our @EXPORT_OK = qw/error/;
use Carp;

my $mode = 'carp';

sub change_mode {
    my ($new_mode) = @_;
    return unless defined $new_mode;
    $new_mode = lc $new_mode;
    return carp( "called for illegal error mode, setting it to carp" )
           unless $new_mode eq 'carp' or $new_mode eq 'croak' or $new_mode eq 'quiet'
               or $new_mode eq 'say'  or $new_mode eq 'die';
	$mode = $new_mode;
}

sub error {
    my ($message) = @_;
    return 0 if $mode eq 'quiet';
	my ($package, $filename, $line, $sub) = caller(1);
	my $report = "$sub: $message";
	if    ($mode eq 'say') {  say   $report }
	elsif ($mode eq 'die') {  die   $report."\n" }
	elsif ($mode eq 'carp'){  carp  $report."\n" }
	elsif ($mode eq 'croak'){ croak $report."\n" }
	return 0;
}

1;