| line |
true |
false |
branch |
|
134
|
0 |
0 |
if (ref $_[0]) |
|
143
|
0 |
0 |
if ($opts{'-script'}) |
|
146
|
0 |
0 |
if -d $Config::Config{'scriptdir'} |
|
150
|
0 |
0 |
if ($opts{'-inc'}) |
|
151
|
0 |
0 |
if ($^O eq 'MacOS') { } |
|
155
|
0 |
0 |
if ($_ eq '.') { } |
|
|
0 |
0 |
elsif ($_ =~ s[^((?:\.\./)+)][':' x (length($1) / 3);]e) { } |
|
168
|
0 |
0 |
if $_ eq $curdir |
|
170
|
0 |
0 |
unless $seen{$path}++ |
|
177
|
0 |
0 |
if ($opts{'-perl'}) |
|
189
|
0 |
0 |
if ($^O eq 'MacOS') { } |
|
204
|
0 |
0 |
unless ("File::Spec"->file_name_is_absolute($try)) |
|
211
|
0 |
0 |
if ($^O eq 'VMS') { } |
|
218
|
0 |
0 |
if (-f $try) |
|
219
|
0 |
0 |
if ($name = _check_and_extract_name($try, $opts{'-verbose'})) |
|
224
|
0 |
0 |
$^O eq 'MacOS' ? : |
|
228
|
0 |
0 |
if (-d $_) |
|
229
|
0 |
0 |
if ($item =~ m[/(?:RCS|CVS|SCCS|\.svn|\.hg|\.git|\.sync)$]) { } |
|
|
0 |
0 |
elsif ($dirs_visited{$item}) { } |
|
235
|
0 |
0 |
if $opts{'-verbose'} |
|
242
|
0 |
0 |
if ($opts{'-perl'} and /^(\d+\.[\d_]+)\z/s and eval "$1" != $]) |
|
245
|
0 |
0 |
if $opts{'-verbose'} |
|
249
|
0 |
0 |
if ($name = _check_and_extract_name($item, $opts{'-verbose'}, $root_rx)) |
|
266
|
0 |
0 |
if ($names_ref->{$name}) { } |
|
282
|
0 |
0 |
unless (-f $file and -T $file and $file =~ /\.(pod|pm|plx?)\z/i || -x $file) |
|
286
|
0 |
0 |
unless contains_pod($file, $verbose) |
|
291
|
0 |
0 |
if (defined $root_rx) { } |
|
293
|
0 |
0 |
if defined $SIMPLIFY_RX |
|
296
|
0 |
0 |
if ($^O eq 'MacOS') { } |
|
304
|
0 |
0 |
if ($^O eq 'MacOS') { } |
|
325
|
0 |
0 |
if ($^O eq 'MacOS') { } |
|
339
|
0 |
0 |
if $^O =~ /mswin|os2/i |
|
341
|
0 |
0 |
if $^O eq "VMS" |
|
401
|
0 |
0 |
if (defined $_[0] and ref $_[0] eq "HASH") |
|
409
|
0 |
0 |
unless scalar @_ |
|
420
|
0 |
0 |
if ($options{'-inc'}) |
|
425
|
0 |
0 |
if ($^O eq 'MacOS' and $options{'-inc'}) { } |
|
|
0 |
0 |
elsif ($options{'-inc'}) { } |
|
429
|
0 |
0 |
if ($_ eq '.') { } |
|
|
0 |
0 |
elsif ($_ =~ s[^((?:\.\./)+)][':' x (length($1) / 3);]e) { } |
|
451
|
0 |
0 |
if -d $Config::Config{'scriptdir'} |
|
455
|
0 |
0 |
if $options{'-verbose'} |
|
461
|
0 |
0 |
if (-d $dir) { } |
|
463
|
0 |
0 |
if $options{'-verbose'} |
|
467
|
0 |
0 |
$^O eq 'VMS' ? : |
|
469
|
0 |
0 |
if $options{'-verbose'} |
|
474
|
0 |
0 |
if (-f $fullext and contains_pod($fullext, $options{'-verbose'})) |
|
476
|
0 |
0 |
if $options{'-verbose'} |
|
482
|
0 |
0 |
if $options{'-verbose'} |
|
491
|
0 |
0 |
if ('File::Spec'->case_tolerant || $^O =~ /macos|darwin|cygwin/i and -d "File::Spec"->catdir($dir, "pods")) |
|
496
|
0 |
0 |
if (-d "File::Spec"->catdir($dir, "pod")) |
|
515
|
0 |
0 |
if @_ |
|
519
|
0 |
0 |
if ($] < "5.006") |
|
523
|
0 |
0 |
unless (open $podfh, "<$file") |
|
530
|
0 |
0 |
unless close $podfh |
|
531
|
0 |
0 |
unless ($pod =~ /^=(head\d|pod|over|item|cut)\b/m) |
|
532
|
0 |
0 |
if $verbose |