blib/lib/Exception/Base.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 68 | 105 | 64.7 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
854 | 14 | 0 | 16 | defined $_[0] and ref $_[0] eq 'HASH' |
1123 | 15 | 4 | 0 | ref $e and do { local $@; local $SIG{'__DIE__'}; eval { do { $e->isa('Exception::Base') } } } |
1260 | 16 | 12 | 0 | not ref $val and $val =~ /^[+-]?\d+$/ |
1263 | 0 | 0 | 0 | not ref $arrval and $arrval =~ /^[+-]?\d+$/ |
1321 | 28 | 16 | 17 | not ref $val and $val =~ /^[+-]?\d+$/ |
1380 | 5 | 1 | 6 | exists $self->{$key} and defined $self->{$key} |
1543 | 0 | 0 | 31 | defined $c{'file'} && $c{'file'} ne '' |
1552 | 2 | 0 | 2 | defined $c{'file'} && $c{'file'} ne '' |
1562 | 20 | 4 | 0 | $verbosity == 3 and $self->_skip_ignored_package($c{'package'}) |
1569 | 8 | 11 | 5 | $verbosity <= 3 and $self->_skip_ignored_package($package) |
1570 | 0 | 0 | 19 | defined $file && $file ne '' |
1677 | 0 | 0 | 62 | $verbosity == 2 and not $self->_skip_ignored_package($stacktrace_element[0]) |
1701 | 0 | 40 | 0 | defined $_ and ref $_ eq 'Regexp' && $package =~ /$_/ || ref $_ ne 'Regexp' && $package eq $_ |
1730 | 0 | 22 | 138 | defined $self->{'caller_stack'} and defined $self->{'caller_stack'}[$i] |
1744 | 1 | 48 | 25 | $max_arg_nums > 0 and $#args + 1 > $max_arg_nums |
1819 | 19 | 284 | 66 | $max > 2 and $max < length $str |
2007 | 0 | 0 | 4 | defined $version and $version =~ /^\d/ |
line | l | !l | condition |
---|---|---|---|
1543 | 31 | 0 | $c{'line'} || 0 |
1552 | 2 | 2 | $c{'line'} || 0 |
1570 | 19 | 0 | $line || 0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
946 | 1 | 71 | 0 | ref $self || $self |
1027 | 2 | 34 | 0 | ref $self || $self |
1107 | 0 | 18 | 1 | ref $self || $self |
1236 | 8 | 8 | 36 | ref $that eq 'Regexp' or ref $that eq 'CODE' |
16 | 8 | 28 | ref $that eq 'Regexp' or ref $that eq 'CODE' or not defined $that | |
1615 | 26 | 85 | 1 | ref $_ or $_ ne '' |
1701 | 7 | 0 | 33 | ref $_ eq 'Regexp' && $package =~ /$_/ || ref $_ ne 'Regexp' && $package eq $_ |
1787 | 13 | 9 | 303 | do { local $@; local $SIG{'__DIE__'}; eval { do { $arg->isa('Exception::Base') } } } or ref $arg |
1799 | 303 | 0 | 0 | not defined *utf8::is_utf{'CODE'} or utf8::is_utf8($arg) |
1831 | 0 | 21 | 0 | ref $self || $self |
1849 | 5 | 0 | 2 | ref $old eq 'ARRAY' or ref $value eq 'Regexp' |
1866 | 4 | 0 | 2 | ref $old eq 'ARRAY' or ref $value eq 'Regexp' |
1916 | 0 | 20 | 0 | ref $self || $self |
1966 | 0 | 1 | 0 | ref $self || $self |
2070 | 2 | 0 | 10 | $attribute =~ /^(isa|version|has)$/ or $isa->can($attribute) |
2081 | 3 | 0 | 1 | exists $attributes->{$attribute}{'default'} or exists $overridden_attributes{$attribute} |