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) |