| line |
true |
false |
branch |
|
35
|
0 |
1 |
unless &getopts("b:d:f:h:i:n:ps:v:w:", \%options) |
|
37
|
0 |
1 |
unless defined $file |
|
38
|
0 |
1 |
if @ARGV |
|
47
|
1 |
0 |
exists $options{'s'} ? : |
|
50
|
1 |
0 |
if (defined $format) { } |
|
56
|
0 |
1 |
unless ($expect{$format}) |
|
65
|
0 |
1 |
if (defined $width) { } |
|
66
|
0 |
0 |
if (not $width =~ /\A\+?[0-9]+\Z/ or $width == 0) |
|
76
|
1 |
0 |
if (defined $startnum) { } |
|
77
|
0 |
1 |
unless ($startnum =~ /\A[\+\-]?[0-9]+\Z/) |
|
86
|
0 |
1 |
if (defined $incr) { } |
|
87
|
0 |
0 |
unless ($incr =~ /\A[\+\-]?[0-9]+\Z/) |
|
119
|
0 |
3 |
unless ($expect{$_}) |
|
134
|
0 |
1 |
if $format eq "ln" |
|
135
|
1 |
0 |
if $format eq "rz" |
|
145
|
0 |
1 |
do_file($file) ? : |
|
155
|
4 |
3 |
if ($match) { } |
|
174
|
0 |
7 |
if ($type eq 'a') { } |
|
|
0 |
7 |
elsif ($type eq 't') { } |
|
|
2 |
5 |
elsif ($type eq 'n') { } |
|
|
0 |
5 |
elsif ($type eq 'p') { } |
|
|
5 |
0 |
elsif ($type eq 'e') { } |
|
180
|
0 |
0 |
$line =~ /\A\Z/ ? : |
|
189
|
0 |
0 |
$line =~ /$regex/ ? : |
|
194
|
1 |
4 |
$line =~ /$regex/ ? : |
|
210
|
0 |
1 |
if ($name eq '-') { } |
|
216
|
0 |
1 |
if (-d $name) |
|
221
|
0 |
1 |
unless (open $fh, "<", $name) |
|
230
|
3 |
7 |
if ($line =~ /^($delim)($delim)?($delim)?$/) { } |
|
232
|
1 |
2 |
if ($3) { } |
|
|
1 |
1 |
elsif ($2) { } |
|
237
|
1 |
2 |
if ($new_section <= $section) |
|
239
|
0 |
1 |
unless $single_page |
|
249
|
0 |
1 |
unless (close $fh) |