| line |
true |
false |
branch |
|
58
|
4 |
39 |
if (defined $got xor defined $exp) |
|
62
|
21 |
18 |
if not defined $got or $got eq $exp |
|
75
|
4 |
3 |
if defined $got xor defined $exp |
|
76
|
2 |
1 |
if not defined $got or $got eq $exp |
|
101
|
2 |
1 |
if eval "package $caller; use $mod \@arg; 1" |
|
115
|
1 |
1 |
if eval "package $caller; require $mod; 1" |
|
138
|
1 |
6 |
unless $fun |
|
142
|
3 |
3 |
if ($numeric{$op}) { } |
|
143
|
1 |
2 |
unless &looks_like_number($x) or &blessed($x) |
|
145
|
1 |
2 |
unless &looks_like_number($y) or &blessed($y) |
|
148
|
1 |
2 |
unless defined $x |
|
149
|
0 |
3 |
unless defined $y |
|
152
|
2 |
4 |
if @missing |
|
155
|
2 |
2 |
if &$fun($x, $y) |
|
191
|
5 |
28 |
unless ref $reg eq 'Regexp' |
|
193
|
1 |
4 |
$reverse ? : |
|
|
5 |
28 |
unless defined $str |
|
195
|
20 |
8 |
if $str =~ /$reg/ xor $reverse |
|
196
|
2 |
6 |
$reverse ? : |
|
206
|
0 |
5 |
unless @_ |
|
209
|
0 |
5 |
unless defined $class |
|
210
|
0 |
5 |
unless UNIVERSAL::can($class, 'can') |
|
226
|
0 |
2 |
unless defined $class |
|
228
|
0 |
2 |
if @_ > 3 |
|
235
|
0 |
2 |
unless UNIVERSAL::can($class, 'can') |
|
237
|
1 |
1 |
unless $class->can('new') |
|
246
|
0 |
5 |
unless defined $class |
|
248
|
0 |
5 |
unless defined $obj |
|
251
|
2 |
3 |
if (UNIVERSAL::can($obj, 'isa') and not $obj->isa($class) or not UNIVERSAL::isa($obj, $class)) |
|
342
|
18 |
33 |
unless defined $maxdiff |
|
345
|
1 |
50 |
if (ref $old ne ref $new or (defined $old xor defined $new)) |
|
350
|
12 |
38 |
unless (ref $old) |
|
351
|
6 |
6 |
unless defined $old |
|
352
|
5 |
1 |
$old eq $new ? : |
|
367
|
4 |
34 |
if ($seen_old ne $seen_new) |
|
370
|
3 |
1 |
$seen_old ne $path ? : |
|
|
2 |
2 |
$seen_new ne $path ? : |
|
376
|
1 |
33 |
if $seen_old ne $path |
|
379
|
3 |
30 |
if &refaddr($old) eq &refaddr($new) |
|
384
|
16 |
14 |
if (UNIVERSAL::isa($old, 'ARRAY')) |
|
386
|
2 |
14 |
@$old < @$new ? : |
|
387
|
1 |
15 |
@$old > @$new ? : |
|
390
|
7 |
14 |
if ($off) |
|
394
|
1 |
20 |
if $maxdiff <= 0 |
|
399
|
1 |
2 |
if $maxdiff <= 0 |
|
401
|
10 |
6 |
@diff ? : |
|
404
|
13 |
1 |
if (UNIVERSAL::isa($old, 'HASH')) |
|
410
|
15 |
10 |
if ($both{$_}) { } |
|
414
|
2 |
13 |
if $maxdiff <= 0 |
|
417
|
8 |
2 |
if ($off) |
|
421
|
2 |
8 |
if $maxdiff <= 0 |
|
424
|
11 |
2 |
@diff ? : |
|
446
|
14 |
4 |
$sign < 0 ? : |
|
|
4 |
14 |
$sign > 0 ? : |