| line |
true |
false |
branch |
|
30
|
28 |
7 |
$_[0] ? : |
|
47
|
9 |
61 |
if ($type eq 'ARRAY') { } |
|
|
43 |
18 |
elsif ($type eq 'SCALAR') { } |
|
|
6 |
12 |
elsif (not $type) { } |
|
|
12 |
0 |
elsif ($type eq 'GLOB' or UNIVERSAL::isa($seq, 'IO::Handle')) { } |
|
58
|
6 |
0 |
unless defined $$filename |
|
59
|
6 |
0 |
unless defined $$mtime |
|
84
|
23 |
12 |
if (not defined $out_handler) { } |
|
|
3 |
9 |
elsif ($type eq 'CODE') { } |
|
|
3 |
6 |
elsif ($type eq 'SCALAR') { } |
|
|
3 |
3 |
elsif ($type eq 'ARRAY') { } |
|
|
3 |
0 |
elsif ($type eq 'GLOB' or UNIVERSAL::isa($out_handler, 'IO::Handle')) { } |
|
117
|
33 |
2 |
if exists $styles{$style} |
|
118
|
0 |
35 |
unless $style->can('new') |
|
119
|
35 |
0 |
unless ref $style |
|
129
|
89 |
80 |
if (my(@same) = $diff->Same) { } |
|
135
|
80 |
0 |
if (my(@del) = $diff->Items(1)) |
|
138
|
80 |
0 |
if (my(@ins) = $diff->Items(2)) |
|
146
|
23 |
12 |
defined $output ? : |
|
161
|
20 |
3 |
unless defined $fn1 and defined $fn2 |
|
168
|
3 |
0 |
defined $t1 ? : |
|
|
3 |
0 |
defined $t2 ? : |