| line |
true |
false |
branch |
|
16
|
0 |
7 |
if (@_ > 1) { } |
|
123
|
79 |
631 |
if (ref $_) { } |
|
|
530 |
101 |
elsif ($instr) { } |
|
128
|
22 |
2 |
if ($type =~ /^code/) { } |
|
134
|
64 |
84 |
ref $_ ? : |
|
164
|
0 |
147 |
if (not defined $_) { } |
|
|
43 |
104 |
elsif (/$placeholder/s) { } |
|
169
|
13 |
49 |
if ($str =~ s/^(<<[^\r\n]+)$nl//) { } |
|
|
2 |
94 |
elsif (@following_lines and $str =~ s/^([^\n\r]*$nl)//) { } |
|
219
|
0 |
6 |
unless exists $extractor_for{$what} |
|
220
|
0 |
6 |
unless ref $how eq 'CODE' |
|
247
|
7 |
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'}) { } |
|
265
|
0 |
103 |
if $status < 0 |
|
266
|
3 |
100 |
if ($terminator{'terminator'} and /$terminator{'terminator'}/) |
|
275
|
4 |
7 |
unless $count |
|
277
|
7 |
0 |
unless $status < 0 |
|
278
|
3 |
4 |
if (defined $lastline) |
|
279
|
0 |
3 |
if (defined $terminator{'becomes'}) { } |
|
|
3 |
0 |
elsif ($lastline =~ /$def_terminator/) { } |
|
289
|
1 |
6 |
if ($prev_import) { } |
|
|
1 |
5 |
elsif ($class->isa('Exporter')) { } |
|
302
|
0 |
2 |
if $prev_unimport |