File Coverage

blib/lib/Geoffrey/Exception/Database.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	4	4	100.0
total	37	37	100.0

package Geoffrey::Exception::Database;

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

$Geoffrey::Exception::Database::VERSION = '0.000204';

use Exception::Class 1.23 (
    'Geoffrey::Exception::Database' => { description => 'Unidentified exception', },
    'Geoffrey::Exception::Database::NoDbh' =>
      { description => 'No default value set for column in table!', },
    'Geoffrey::Exception::Database::NotDbh' =>
      { description => 'Given dbh is in a non valid type!', },
    'Geoffrey::Exception::Database::SqlHandle' =>
      { description => 'No default value set for column in table!', },
    'Geoffrey::Exception::Database::CorruptChangeset' =>
      { description => 'No default value set for column in table!', },
);

sub throw_no_dbh {
    return Geoffrey::Exception::Database::NoDbh->throw(
        "No default dbh value is set\n" . longmess );
}

sub throw_not_dbh {
    return Geoffrey::Exception::Database::NotDbh->throw(
        "Given dbh is in a non valid type\n" . longmess );
}

sub throw_sql_handle {
    my ( $s_throw_message, $s_sql ) = @_;
    return Geoffrey::Exception::Database::SqlHandle->throw(
        "Can't handle sql: $s_sql $s_throw_message\n" . longmess );
}

sub throw_changeset_corrupt {
    my ( $id, $value, $resp ) = @_;
    return Geoffrey::Exception::Database::CorruptChangeset->throw(
        "MD5 hash changed for changeset: $id expect $value got $resp\n" . longmess );
}

1;

__END__