| line |
true |
false |
branch |
|
16
|
0 |
6 |
if (@_ > 1) { } |
|
116
|
35 |
256 |
if (ref $_) { } |
|
|
218 |
38 |
elsif ($instr) { } |
|
120
|
3 |
2 |
if ($type =~ /^code/) { } |
|
125
|
20 |
21 |
ref $_ ? : |
|
151
|
0 |
5 |
unless exists $extractor_for{$what} |
|
152
|
0 |
5 |
unless ref $how eq 'CODE' |
|
179
|
6 |
0 |
if (not defined $terminator) { } |
|
|
0 |
0 |
elsif (not ref $terminator or ref $terminator eq 'Regexp') { } |
|
|
0 |
0 |
elsif (ref $terminator ne 'HASH') { } |
|
|
0 |
0 |
elsif (not exists $terminator->{'terminator'}) { } |
|
197
|
0 |
68 |
if $status < 0 |
|
198
|
3 |
65 |
if ($terminator{'terminator'} and /$terminator{'terminator'}/) |
|
208
|
3 |
6 |
unless $count |
|
210
|
6 |
0 |
unless $status < 0 |
|
211
|
3 |
3 |
if (defined $lastline) |
|
212
|
0 |
3 |
if (defined $terminator{'becomes'}) { } |
|
|
3 |
0 |
elsif ($lastline =~ /$def_terminator/) { } |
|
222
|
1 |
5 |
if ($prev_import) { } |
|
|
1 |
4 |
elsif ($class->isa('Exporter')) { } |
|
235
|
0 |
2 |
if $prev_unimport |