| 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'} |
|
163
|
0 |
0 |
if ($?) |
|
166
|
0 |
0 |
if (defined $pager and length $pager) { } |
|
167
|
0 |
0 |
$^O =~ /win/i ? : |
|
182
|
14 |
1 |
unless lc $opts{'-exitval'} eq 'noexit' |
|
197
|
0 |
15 |
if ($self->can('initialize')) { } |
|
204
|
0 |
150 |
if defined $val |
|
229
|
42 |
33 |
unless defined $regexs[$i] and length $regexs[$i] |
|
235
|
0 |
75 |
if $_ eq '!' |
|
240
|
0 |
75 |
if ($@) { } |
|
246
|
75 |
0 |
unless /^\^/ |
|
247
|
75 |
0 |
unless /\$$/ |
|
248
|
1 |
74 |
if $negated |
|
251
|
25 |
0 |
!$bad_regexs ? : |
|
256
|
0 |
15 |
if ($Pod::Usage::ISA[0]->can('select')) { } |
|
260
|
0 |
15 |
$sections[0] eq '+' ? : |
|
262
|
0 |
15 |
unless (@sections) |
|
263
|
0 |
0 |
unless $add |
|
267
|
15 |
0 |
unless $add and $self->{'USAGE_SELECT'} |
|
272
|
25 |
0 |
if (defined $cs) { } |
|
289
|
0 |
28 |
if $self->isa('Pod::Text::Termcap') |
|
298
|
66 |
482 |
if ($element eq 'head1') { } |
|
|
24 |
458 |
elsif ($element =~ /^head(\d+)$/ and $1) { } |
|
300
|
62 |
4 |
if ($self->{'USAGE_OPTIONS'}{'-verbose'} < 2) |
|
305
|
0 |
24 |
unless $self->{'USAGE_HEADINGS'} |
|
310
|
90 |
458 |
if ($element =~ /^head\d+$/) |
|
312
|
0 |
90 |
if (not $self->{'USAGE_SELECT'} && @{$self->{'USAGE_SELECT'};}) { } |
|
319
|
53 |
139 |
unless defined $headings[$i] |
|
322
|
2 |
190 |
$negated ? : |
|
324
|
106 |
86 |
unless $match |
|
326
|
27 |
106 |
if ($match) |
|
335
|
86 |
4 |
if ($self->{'USAGE_OPTIONS'}{'-verbose'} < 2) |
|
337
|
54 |
5 |
length $2 > 2 ? : |
|
338
|
86 |
0 |
unless /:\s*$/ |
|
343
|
234 |
314 |
if ($self->{'USAGE_SKIPPING'} and not $element =~ /^over-|^[BCFILSZ]$/) { } |
|
354
|
14 |
1 |
unless my $msg = $self->{'USAGE_OPTIONS'}{'-message'} |
|
363
|
0 |
0 |
unless my $msg = $self->{'USAGE_OPTIONS'}{'-message'} |
|
373
|
0 |
0 |
if ($self->{'USAGE_OPTIONS'}{'-verbose'} < 2 and /^=head/) |
|
377
|
0 |
0 |
length $2 > 2 ? : |
|
379
|
0 |
0 |
unless /:\s*$/ |