File Coverage

blib/lib/Iterator/BreakOn/X.pm

Criterion	Covered	Total	%
statement	12	15	80.0
branch			n/a
condition	0	2	0.0
subroutine	4	5	80.0
pod	1	1	100.0
total	17	23	73.9

package Iterator::BreakOn::X;
use strict;
use warnings;
use Carp;

our $VERSION = '0.2';

use Exception::Class(
    'Iterator::BreakOn::X' => {
        description =>  'Parent class',
    },
    'Iterator::BreakOn::X::datasource' => {
        isa         =>  'Iterator::BreakOn::X',
        description =>  'fatal error in next method of datasource',
    },

    'Iterator::BreakOn::X::missing' => {
        isa         =>  'Iterator::BreakOn::X',
        description =>  'missing required parameter',
        fields      =>  [ 'parameter' ],
    },

    'Iterator::BreakOn::X::getmethod' => {
        isa         =>  'Iterator::BreakOn::X',
        description =>  "object can't use the user supplied get method",
        fields      =>  [ 'get_method' ],
    },

    'Iterator::BreakOn::X::invalid_event' => {
        isa         =>  'Iterator::BreakOn::X',
        description =>  'received an invalid name for an event',
        fields      =>  [ 'name' ],
    },

    'Iterator::BreakOn::X::csvfail' => {
        isa         =>  'Iterator::BreakOn::X',
        description =>  'fatal error in Text::CSV package',
    },

);

sub full_message {
    my  $self   =   shift;
    my  $msg    =      $self->message()
                    || $self->description()
                    || 'unknown error';

    return "fatal error: ${msg}";
}

1;
__END__