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) |