| line |
true |
false |
branch |
|
253
|
0 |
0 |
unless defined $keep |
|
254
|
0 |
0 |
unless defined $ckal |
|
255
|
0 |
0 |
unless defined $ckmt |
|
277
|
0 |
0 |
if ($Is_VMS) |
|
281
|
0 |
0 |
if ($Is_VMS and /[:>\]]/) |
|
307
|
0 |
0 |
if ($Is_VMS) |
|
311
|
0 |
0 |
unless (-d $autodir) |
|
322
|
0 |
0 |
unless $filename =~ /\.pm\z/ |
|
324
|
0 |
0 |
unless open my $in, "<$filename" |
|
332
|
0 |
0 |
if /^=\w/ |
|
333
|
0 |
0 |
if /^=cut/ |
|
334
|
0 |
0 |
if $in_pod or /^=cut/ |
|
335
|
0 |
0 |
if /^\s*#/ |
|
338
|
0 |
0 |
if /^\s*package\s+([\w:]+)\s*;/ |
|
339
|
0 |
0 |
if /^\s*(use|require)\s+AutoLoader\b/ |
|
340
|
0 |
0 |
if /\bISA\s*=.*\bAutoLoader\b/ |
|
341
|
0 |
0 |
if /^__END__/ |
|
343
|
0 |
0 |
if ($check_for_autoloader and not $autoloader_seen) |
|
344
|
0 |
0 |
if $Verbose >= 2 |
|
348
|
0 |
0 |
unless $_ |
|
350
|
0 |
0 |
unless $def_package |
|
355
|
0 |
0 |
unless $filename =~ /\Q$modpname.pm\E$/ or $^O eq 'dos' or $^O eq 'MSWin32' or $^O eq 'NetWare' or $Is_VMS and $filename =~ /$modpname.pm/i |
|
363
|
0 |
0 |
if ($check_mod_time) |
|
365
|
0 |
0 |
if ($al_ts_time >= $pm_mod_time and $al_ts_time >= $self_mod_time) |
|
367
|
0 |
0 |
if $Verbose >= 2 |
|
374
|
0 |
0 |
if $Verbose |
|
377
|
0 |
0 |
unless (-d $modnamedir) |
|
397
|
0 |
0 |
if /^=\w/ |
|
398
|
0 |
0 |
if /^=cut/ |
|
399
|
0 |
0 |
if $in_pod or /^=cut/ |
|
403
|
0 |
0 |
if (/^package\s+([\w:]+)\s*;/) |
|
407
|
0 |
0 |
if (/^sub\s+([\w:]+)(\s*(?:\(.*?\))?(?:$attr_list)?)/) |
|
408
|
0 |
0 |
if $last_package |
|
412
|
0 |
0 |
if ($subname =~ s/(.*):://) { } |
|
429
|
0 |
0 |
if (not $Is83 and open $out, ">$lpath") { } |
|
431
|
0 |
0 |
if $Verbose >= 2 |
|
433
|
0 |
0 |
unless open $out, ">$spath" |
|
435
|
0 |
0 |
if $Verbose >= 1 |
|
452
|
0 |
0 |
if ($caching) { } |
|
453
|
0 |
0 |
if @cache or /\S/ |
|
457
|
0 |
0 |
if (/^\}/) |
|
458
|
0 |
0 |
if ($caching) |
|
465
|
0 |
0 |
if defined $this_package |
|
467
|
0 |
0 |
if ($subname) |
|
473
|
0 |
0 |
unless ($keep) |
|
481
|
0 |
0 |
if ($Is_VMS or $Is83) { } |
|
493
|
0 |
0 |
unless /\.al\z/ |
|
495
|
0 |
0 |
if $Is83 or $Is_VMS |
|
496
|
0 |
0 |
if $outfiles{$file} |
|
497
|
0 |
0 |
if $Verbose >= 2 |
|
500
|
0 |
0 |
unless $deleted |
|
506
|
0 |
0 |
unless open my $ts, ">$al_idx_file" |
|
514
|
0 |
0 |
unless $last_package eq $package{$fqs} |
|
530
|
0 |
0 |
if ($^O eq 'MSWin32') { } |
|
540
|
0 |
0 |
if ($Is_VMS) |
|
560
|
0 |
0 |
if $shorts{$dir}{$trunc} |
|
561
|
0 |
0 |
$shorts{$dir}{$trunc} ? : |
|
564
|
0 |
0 |
if (%notuniq and $warn) |