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*$/ |