| line |
true |
false |
branch |
|
13
|
28 |
7 |
if (caller 1)[5] |
|
16
|
1 |
6 |
if @_ == 0 |
|
17
|
1 |
5 |
if @_ == 1 |
|
18
|
4 |
1 |
if @_ == 2 |
|
20
|
0 |
1 |
grep(/,/, @_) ? : |
|
153
|
20 |
20 |
unless $listspec =~ /$$handler{'pat'} /msx |
|
168
|
1 |
19 |
if (@_) { } |
|
190
|
0 |
2 |
if ref $regex ne 'Regexp' or ref $sub ne 'CODE' |
|
209
|
3 |
944 |
if (not $caller_expecting_special_behaviour{join $;, $package, $file} && $in_scope) { } |
|
211
|
1 |
2 |
if exists &CORE::GLOBAL::glob |
|
233
|
86 |
128 |
unless (defined $incr) |
|
242
|
8 |
206 |
if $incr == 0 and $from != $to or $delta * $incr < 0 |
|
247
|
14 |
192 |
if $exfrom |
|
250
|
11 |
195 |
if ($incr == 0) { } |
|
|
163 |
32 |
elsif ($incr > 0) { } |
|
|
32 |
0 |
elsif ($incr < 0) { } |
|
251
|
6 |
5 |
$exto || $exfrom ? : |
|
257
|
118 |
3060 |
if $exto and $from >= $to || $from eq $to or not $exto and $from > $to |
|
267
|
16 |
216 |
if $exto and $from <= $to || $from eq $to or not $exto and $from < $to |
|
275
|
40 |
166 |
if (defined $filter) |
|
278
|
0 |
40 |
if $@ |
|
282
|
50 |
156 |
if (defined $selector) |