| line |
true |
false |
branch |
|
28
|
0 |
17 |
if $@ |
|
44
|
12 |
3 |
if (@_ > 0) { } |
|
|
1 |
2 |
elsif (not defined $_) { } |
|
|
0 |
2 |
elsif (ref $_) { } |
|
|
2 |
0 |
elsif (/^[-+]?\d+$/) { } |
|
54
|
0 |
0 |
if ref $_ eq 'HASH' |
|
62
|
0 |
0 |
if $_ |
|
72
|
0 |
38 |
if $key =~ /^-msg/i |
|
73
|
12 |
26 |
if $key =~ /^-exit/i |
|
78
|
1 |
14 |
if (not defined $opts{'-exitval'} || defined $opts{'-verbose'}) { } |
|
|
2 |
12 |
elsif (not defined $opts{'-exitval'}) { } |
|
|
2 |
10 |
elsif (not defined $opts{'-verbose'}) { } |
|
83
|
2 |
0 |
$opts{'-verbose'} > 0 ? : |
|
93
|
12 |
3 |
lc $opts{'-exitval'} eq 'noexit' || $opts{'-exitval'} < 2 ? : |
|
|
15 |
0 |
unless defined $opts{'-output'} |
|
95
|
7 |
8 |
unless defined $opts{'-input'} |
|
98
|
0 |
15 |
unless (ref $opts{'-input'} or -e $opts{'-input'}) |
|
100
|
0 |
0 |
$^O eq 'MacOS' || $^O eq 'VMS' ? : |
|
|
0 |
0 |
$^O =~ /^(?:dos|os2|MSWin32)$/i ? : |
|
104
|
0 |
0 |
ref $pathspec ? : |
|
106
|
0 |
0 |
if length $_ |
|
107
|
0 |
0 |
if -e $_ and $opts{'-input'} = $_ |
|
113
|
5 |
10 |
if ($opts{'-verbose'} == 0) { } |
|
|
4 |
6 |
elsif ($opts{'-verbose'} == 1) { } |
|
|
1 |
5 |
elsif ($opts{'-verbose'} >= 2 and $opts{'-verbose'} != 99) { } |
|
|
5 |
0 |
elsif ($opts{'-verbose'} == 99) { } |
|
127
|
2 |
3 |
ref $sections ? : |
|
134
|
0 |
15 |
$opts{'-perldoc'} ? : |
|
137
|
0 |
15 |
if ($Pod::Usage::Config{'versiononly'} and $Pod::Usage::Config{'startperl'} =~ /\Q$version\E$/) |
|
140
|
0 |
15 |
unless -e $progpath |
|
143
|
0 |
15 |
if (not $opts{'-noperldoc'} and $opts{'-verbose'} >= 2 and not ref $opts{'-input'} and $opts{'-output'} == \*STDOUT) { } |
|
149
|
0 |
0 |
if $opts{'-message'} |
|
150
|
0 |
0 |
if (defined $opts{-'input'} and $opts{-'input'} =~ /^\s*(\S.*?)\s*$/) { } |
|
155
|
0 |
0 |
if ($opts{'-perldocopt'}) |
|
160
|
0 |
0 |
if $opts{'-perlcmd'} |
|
162
|
0 |
0 |
if ($?) |
|
174
|
14 |
1 |
unless lc $opts{'-exitval'} eq 'noexit' |
|
189
|
0 |
15 |
if ($self->can('initialize')) { } |
|
196
|
0 |
150 |
if defined $val |
|
221
|
42 |
33 |
unless defined $regexs[$i] and length $regexs[$i] |
|
227
|
0 |
75 |
if $_ eq '!' |
|
232
|
0 |
75 |
if ($@) { } |
|
238
|
75 |
0 |
unless /^\^/ |
|
239
|
75 |
0 |
unless /\$$/ |
|
240
|
1 |
74 |
if $negated |
|
243
|
25 |
0 |
!$bad_regexs ? : |
|
248
|
0 |
15 |
if ($Pod::Usage::ISA[0]->can('select')) { } |
|
252
|
0 |
15 |
$sections[0] eq '+' ? : |
|
254
|
0 |
15 |
unless (@sections) |
|
255
|
0 |
0 |
unless $add |
|
259
|
15 |
0 |
unless $add and $self->{'USAGE_SELECT'} |
|
264
|
25 |
0 |
if (defined $cs) { } |
|
285
|
65 |
481 |
if ($element eq 'head1') { } |
|
|
24 |
457 |
elsif ($element =~ /^head(\d+)$/ and $1) { } |
|
287
|
61 |
4 |
if ($self->{'USAGE_OPTIONS'}{-'verbose'} < 2) |
|
292
|
0 |
24 |
unless $self->{'USAGE_HEADINGS'} |
|
297
|
89 |
457 |
if ($element =~ /^head\d+$/) |
|
299
|
0 |
89 |
if (not $self->{'USAGE_SELECT'} && @{$self->{'USAGE_SELECT'};}) { } |
|
306
|
53 |
138 |
unless defined $headings[$i] |
|
309
|
2 |
189 |
$negated ? : |
|
311
|
105 |
86 |
unless $match |
|
313
|
27 |
105 |
if ($match) |
|
322
|
85 |
4 |
if ($self->{'USAGE_OPTIONS'}{-'verbose'} < 2) |
|
324
|
53 |
5 |
length $2 > 2 ? : |
|
325
|
85 |
0 |
unless /:\s*$/ |
|
330
|
232 |
314 |
if ($self->{'USAGE_SKIPPING'} and not $element =~ /^over-|^[BCFILSZ]$/) { } |
|
341
|
14 |
1 |
unless my $msg = $self->{'USAGE_OPTIONS'}{-'message'} |
|
350
|
0 |
0 |
unless my $msg = $self->{'USAGE_OPTIONS'}{-'message'} |
|
360
|
0 |
0 |
if ($self->{'USAGE_OPTIONS'}{-'verbose'} < 2 and /^=head/) |
|
364
|
0 |
0 |
length $2 > 2 ? : |
|
366
|
0 |
0 |
unless /:\s*$/ |