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