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/ |
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} |