| blib/lib/ExtUtils/Install.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 42 | 91 | 46.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 137 | 10 | 10 | 14 | -f $_[1] and -s _ == -s $_[0] |
| 338 | 19 | 0 | 0 | $skip and not ref $skip |
| 411 | 0 | 0 | 26 | defined $dir and length $dir |
| 426 | 0 | 50 | 0 | defined $vol and length $vol |
| 463 | 34 | 0 | 0 | $verbose and $verbose > 1 |
| 34 | 0 | 0 | $verbose and $verbose > 1 and not -d $dir | |
| 480 | 24 | 0 | 0 | $show and $dry_run |
| 511 | 15 | 0 | 0 | $verbose and $verbose > 1 |
| 661 | 6 | 1 | 12 | @_ == 1 and eval { do { 1 + @$from_to } } |
| 719 | 3 | 16 | 0 | $source eq $blib_lib and exists $from_to{$blib_arch} |
| 16 | 0 | 0 | $source eq $blib_lib and exists $from_to{$blib_arch} and &directory_not_empty($blib_arch) | |
| 1076 | 4 | 6 | 0 | $diff and $verbose > 1 |
| 1096 | 2 | 4 | 0 | $ExtUtils::Install::Testing and ucase("File::Spec"->canonpath($ExtUtils::Install::Testing)) eq ucase($targetfile) |
| 1166 | 3 | 0 | 3 | -f $to and -s $from == -s $to |
| 3 | 3 | 0 | -f $to and -s $from == -s $to and -M $to < -M $from | |
| 1176 | 6 | 0 | 0 | defined $pm_filter && length $pm_filter && $from =~ /\.pm$/ |
| line | l | !l | condition |
|---|---|---|---|
| 147 | 0 | 15 | $verbose ||= 0 |
| 379 | 3 | 0 | eval { do { local $^W; require POSIX; 1 } } || 0 |
| 673 | 2 | 17 | $result ||= {} |
| 674 | 0 | 19 | $verbose ||= 0 |
| 675 | 2 | 17 | $dry_run ||= 0 |
| 680 | 0 | 18 | $ENV{'EU_INSTALL_ALWAYS_COPY'} || $ENV{'EU_ALWAYS_COPY'} || 0 |
| 1007 | 0 | 0 | $verbose ||= 0 |
| 1008 | 0 | 0 | $dry_run ||= 0 |
| 1048 | 0 | 8 | $ignore ||= "" |
| 1053 | 0 | 0 | $ENV{'PERLLIB'} || '' |
| 1251 | 0 | 0 | $Config::Config{'make'} || 'make' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 92 | 0 | 0 | 3 | $^O eq 'MSWin32' || $^O eq 'cygwin' |
| 215 | 0 | 0 | 0 | $MUST_REBOOT ||= ref $target ? 0 : 1 |
| 755 | 1 | 11 | 7 | $always_copy || _compare($sourcefile, $targetfile) |
| 1078 | 4 | 0 | 6 | not $diff or $targetfile eq $ignore |
| 1085 | 0 | 0 | 0 | $Inc_uninstall_warn_handler ||= "ExtUtils::Install::Warn"->new |
| 1179 | 0 | 3 | 3 | $need_filtering or _compare($from, $to) |
| 1279 | 0 | 0 | 0 | $top =~ /^Build/i or exists $INC{'Module/Build.pm'} |