File Coverage

blib/lib/Geoffrey/Exception/General.pm

Criterion	Covered	Total	%
statement	31	35	88.5
branch	2	4	50.0
condition	3	6	50.0
subroutine	11	11	100.0
pod	5	5	100.0
total	52	61	85.2

package Geoffrey::Exception::General;

use utf8;
use 5.016;
use strict;
use warnings;
use Carp qw/longmess/;

$Geoffrey::Exception::General::VERSION = '0.000203';

use Exception::Class 1.23 (
    'Geoffrey::Exception::General'                   => { description => 'Unidentified exception', },
    'Geoffrey::Exception::General::TableNameMissing' => { description => 'No default value set for column in table!', },
    'Geoffrey::Exception::General::UnknownAction'    => { description => 'No default value set for column in table!', },
    'Geoffrey::Exception::General::ParamsMissing'    => { description => 'The sub needs some params!', },
    'Geoffrey::Exception::General::WrongRef'         => { description => 'The sub needs a ref!', },
    'Geoffrey::Exception::General::Eval'             => { description => 'Eval exception!', },

);

sub throw_wrong_ref {
    my ( $s_sub, $s_type ) = @_;
    return Geoffrey::Exception::General::WrongRef->throw( "$s_sub needs a $s_type\n" . longmess );
}

sub throw_no_table_name {
    my ($s_throw_message) = @_;
    return Geoffrey::Exception::General::TableNameMissing->throw(
        "I can't guess the table $s_throw_message\n" . longmess );
}

sub throw_unknown_action {
    my $s_throw_message = shift // q//;
    return Geoffrey::Exception::General::UnknownAction->throw(
        "Key for action $s_throw_message not found or implemented.\n Probaply misspelled.\n" . longmess );
}

sub throw_no_params {
    my $s_throw_message = shift // q//;
    my $s_param         = shift;
    my $hr_params       = shift;
    if ($s_param) {
        return Geoffrey::Exception::General::ParamsMissing->throw(
            qq~The sub "$s_throw_message" needs param: '$s_param'\n~ . longmess );
    }
    if ($hr_params) {
        require Data::Dumper;
        my $s_params = Data::Dumper->new( [$hr_params] )->Terse(1)->Deparse(1)->Sortkeys(1)->Dump;
        return Geoffrey::Exception::General::ParamsMissing->throw(
            qq~The sub "$s_throw_message" needs param: '$s_param'!\n$s_params\n~ . longmess );
    }
    return Geoffrey::Exception::General::ParamsMissing->throw(
        qq~The sub "$s_throw_message" needs some params.\n~ . longmess );
}

sub throw_eval {
    my $s_throw_message = shift // q//;
    return Geoffrey::Exception::General::Eval->throw( qq~Eval exception with $s_throw_message.\n~ . longmess );
}

1;

__END__