| 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)) |
|
260
|
0 |
0 |
if ($names_ref->{$name}) { } |
|
276
|
0 |
0 |
unless (-f $file and -T $file and $file =~ /\.(pod|pm|plx?)\z/i || -x $file) |
|
280
|
0 |
0 |
unless contains_pod($file, $verbose) |
|
285
|
0 |
0 |
if (defined $root_rx) { } |
|
287
|
0 |
0 |
if defined $SIMPLIFY_RX |
|
290
|
0 |
0 |
if ($^O eq 'MacOS') { } |
|
298
|
0 |
0 |
if ($^O eq 'MacOS') { } |
|
319
|
0 |
0 |
if ($^O eq 'MacOS') { } |
|
333
|
0 |
0 |
if $^O =~ /mswin|os2/i |
|
335
|
0 |
0 |
if $^O eq "VMS" |
|
395
|
0 |
0 |
if (defined $_[0] and ref $_[0] eq "HASH") |
|
403
|
0 |
0 |
unless scalar @_ |
|
414
|
0 |
0 |
if ($options{'-inc'}) |
|
419
|
0 |
0 |
if ($^O eq 'MacOS' and $options{'-inc'}) { } |
|
|
0 |
0 |
elsif ($options{'-inc'}) { } |
|
423
|
0 |
0 |
if ($_ eq '.') { } |
|
|
0 |
0 |
elsif ($_ =~ s[^((?:\.\./)+)][':' x (length($1) / 3);]e) { } |
|
445
|
0 |
0 |
if -d $Config::Config{'scriptdir'} |
|
449
|
0 |
0 |
if $options{'-verbose'} |
|
455
|
0 |
0 |
if (-d $dir) { } |
|
457
|
0 |
0 |
if $options{'-verbose'} |
|
461
|
0 |
0 |
if $^O eq "VMS" |
|
463
|
0 |
0 |
if $options{'-verbose'} |
|
468
|
0 |
0 |
if (-f $fullext and contains_pod($fullext, $options{'-verbose'})) |
|
470
|
0 |
0 |
if $options{'-verbose'} |
|
476
|
0 |
0 |
if $options{'-verbose'} |
|
485
|
0 |
0 |
if ('File::Spec'->case_tolerant || $^O =~ /macos|darwin|cygwin/i and -d "File::Spec"->catdir($dir, "pods")) |
|
490
|
0 |
0 |
if (-d "File::Spec"->catdir($dir, "pod")) |
|
509
|
0 |
0 |
if @_ |
|
513
|
0 |
0 |
if ($] < "5.006") |
|
517
|
0 |
0 |
unless (open $podfh, "<$file") |
|
524
|
0 |
0 |
unless close $podfh |
|
525
|
0 |
0 |
unless ($pod =~ /^=(head\d|pod|over|item|cut)\b/m) |
|
526
|
0 |
0 |
if $verbose |