| line |
true |
false |
branch |
|
357
|
17 |
0 |
if (defined(my $i = &first(sub {
$argv->[$_] eq "--";
}
, keys @$argv))) |
|
358
|
17 |
0 |
if (my(@command) = splice(@$argv, 0, $i)) |
|
361
|
0 |
17 |
unless shift @$argv eq "--" |
|
369
|
0 |
0 |
if $@ |
|
390
|
0 |
36 |
unless (my $s1, local $_, my $s2) = $_[0] =~ /\A(\s*)(.*?)(\s*)\z/su |
|
398
|
22 |
14 |
@_ > 0 ? : |
|
406
|
22 |
36 |
if ($discrete and $fillup) |
|
409
|
0 |
66 |
if (ref $command ne "ARRAY") |
|
414
|
0 |
66 |
if (@command and $command[0] =~ /^&(.+)/u) |
|
419
|
0 |
66 |
if ($config->{'nofork'} and ref $command[0] eq "CODE") |
|
424
|
0 |
66 |
if ($squeeze) |
|
431
|
2 |
6 |
if ($fillup) |
|
439
|
0 |
8 |
if (@out < $lines) { } |
|
|
0 |
8 |
elsif (@out > $lines) { } |
|
453
|
0 |
17 |
if ($blocks) |
|
461
|
6 |
11 |
if $discrete and not $bulkmode |
|
470
|
1 |
10 |
if ($crmode) |
|
474
|
11 |
0 |
if @block |
|
475
|
3 |
8 |
if ($discrete) { } |
|
482
|
1 |
10 |
if ($crmode) |
|
488
|
38 |
155 |
if ($discrete and not $bulkmode) { } |