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'} |