line |
true |
false |
branch |
15
|
1 |
0 |
unless @functions |
27
|
0 |
0 |
unless exists $opts{'ntargs'} |
28
|
0 |
0 |
unless exists $opts{'otherargs'} |
30
|
0 |
0 |
unless exists $opts{'stripsuffix'} |
32
|
0 |
0 |
unless (exists $opts{'out'}) |
35
|
0 |
0 |
unless $opts{'in'} =~ /\.bat$/i or $opts{'in'} eq '-' |
69
|
0 |
0 |
unless $start =~ /^#!.*perl/ |
71
|
0 |
0 |
unless open my $in, '<', $opts{'in'} |
77
|
0 |
0 |
if ($line =~ /^:endofperl\b/) |
78
|
0 |
0 |
unless (exists $opts{'update'}) |
84
|
0 |
0 |
if (not $linedone and $line =~ /^#!.*perl/) |
85
|
0 |
0 |
if (exists $opts{'update'}) { } |
93
|
0 |
0 |
if ($line =~ /^#\s*line\b/ and $linenum == 2 + $skiplines) |
98
|
0 |
0 |
unless open my $out, '>', $opts{'out'} |
100
|
0 |
0 |
$opts{'usewarnings'} ? : |
|
0 |
0 |
unless $linedone |
103
|
0 |
0 |
unless $taildone |