Condition Coverage

blib/lib/Exception/Base.pm
Criterion Covered Total %
condition 68 105 64.7


and 3 conditions

line !l l&&!r l&&r condition
855 14 0 16 defined $_[0] and ref $_[0] eq 'HASH'
1125 15 4 0 ref $e and do { local $@; local $SIG{'__DIE__'}; eval { do { $e->isa('Exception::Base') } } }
1262 16 12 0 not ref $val and $val =~ /^[+-]?\d+$/
1265 0 0 0 not ref $arrval and $arrval =~ /^[+-]?\d+$/
1324 28 16 17 not ref $val and $val =~ /^[+-]?\d+$/
1383 5 1 6 exists $$self{$key} and defined $$self{$key}
1544 0 0 31 defined $c{'file'} && $c{'file'} ne ''
1553 2 0 2 defined $c{'file'} && $c{'file'} ne ''
1565 20 4 0 $verbosity == 3 and $self->_skip_ignored_package($c{'package'})
1572 8 11 5 $verbosity <= 3 and $self->_skip_ignored_package($package)
1573 0 0 19 defined $file && $file ne ''
1681 0 0 62 $verbosity == 2 and not $self->_skip_ignored_package($stacktrace_element[0])
1705 0 40 0 defined $_ and ref $_ eq 'Regexp' && $package =~ /$_/ || ref $_ ne 'Regexp' && $package eq $_
1733 0 22 138 defined $$self{'caller_stack'} and defined $$self{'caller_stack'}[$i]
1748 1 48 25 $max_arg_nums > 0 and $#args + 1 > $max_arg_nums
1824 19 284 66 $max > 2 and $max < length $str
2013 0 0 4 defined $version and $version =~ /^\d/

or 2 conditions

line l !l condition
1544 31 0 $c{'line'} || 0
1553 2 2 $c{'line'} || 0
1573 19 0 $line || 0

or 3 conditions

line l !l&&r !l&&!r condition
947 1 71 0 ref $self || $self
1028 2 34 0 ref $self || $self
1108 0 18 1 ref $self || $self
1238 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 ''
1705 7 0 33 ref $_ eq 'Regexp' && $package =~ /$_/ || ref $_ ne 'Regexp' && $package eq $_
1791 13 9 303 do { local $@; local $SIG{'__DIE__'}; eval { do { $arg->isa('Exception::Base') } } } or ref $arg
1804 303 0 0 not defined *utf8::is_utf{'CODE'} or utf8::is_utf8($arg)
1837 0 21 0 ref $self || $self
1855 5 0 2 ref $old eq 'ARRAY' or ref $value eq 'Regexp'
1872 4 0 2 ref $old eq 'ARRAY' or ref $value eq 'Regexp'
1922 0 20 0 ref $self || $self
1972 0 1 0 ref $self || $self
2076 2 0 10 $attribute =~ /^(isa|version|has)$/ or $isa->can($attribute)
2087 3 0 1 exists $$attributes{$attribute}{'default'} or exists $overridden_attributes{$attribute}