| blib/lib/local/lib.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 30 | 79 | 37.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 43 | 0 | 0 | 0 | $_PERL =~ /$_DIR_SPLIT/ and -x $_PERL |
| 83 | 0 | 0 | 0 | not length $cwd and $drive |
| 238 | 130 | 0 | 64 | ref $_ && ref $_ eq 'SCALAR' |
| 497 | 28 | 28 | 0 | ref $value and @$value == 1 |
| 56 | 0 | 0 | ref $value and @$value == 1 and ref $value->[0] | |
| 28 | 0 | 0 | ref $value and @$value == 1 and ref $value->[0] and ref $value->[0] eq "SCALAR" | |
| 0 | 0 | 0 | ref $value and @$value == 1 and ref $value->[0] and ref $value->[0] eq "SCALAR" and ${$value->[0];} eq $name | |
| 673 | 0 | 0 | 0 | not length $user and defined $ENV{'HOME'} |
| 714 | 9 | 12 | 1 | not $opts->{'quiet'} and @dirs |
| 737 | 0 | 0 | 4 | defined $ENV{'SHELL'} && length $ENV{'SHELL'} |
| 0 | 0 | 0 | $^O eq 'MSWin32' && exists $ENV{'!EXITCODE'} | |
| 0 | 0 | 0 | $^O eq 'MSWin32' && $ENV{'PROMPT'} && $ENV{'COMSPEC'} | |
| 0 | 0 | 0 | $^O eq 'MSWin32' && !$ENV{'PROMPT'} |
| line | l | !l | condition |
|---|---|---|---|
| 227 | 35 | 19 | $_[0]{'inc'} ||= \@INC |
| 228 | 14 | 14 | $_[0]{'libs'} ||= [\"PERL5LIB"] |
| 229 | 14 | 14 | $_[0]{'bins'} ||= [\"PATH"] |
| 230 | 30 | 20 | $_[0]{'roots'} ||= [\"PERL_LOCAL_LIB_ROOT"] |
| 231 | 14 | 0 | $_[0]{'extra'} ||= {} |
| 369 | 13 | 0 | $opts ||= {} |
| 582 | 0 | 0 | $out || " \n" |
| 699 | 21 | 1 | $opts ||= {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 18 | 0 | 0 | 9 | $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'symbian' |
| 21 | 0 | 9 | 0 | $^O eq 'MacOS' || $^O eq 'VMS' || $INC{'File/Spec.pm'} |
| 125 | 0 | 0 | 0 | $_DEVNULL ||= (require File::Spec, "File::Spec"->devnull) |
| 384 | 0 | 6 | 7 | $opts->{'always'} or not @active_lls |
| 6 | 5 | 2 | $opts->{'always'} or not @active_lls or $active_lls[0] ne $path | |
| 400 | 0 | 0 | 0 | Win32::GetShortPathName($path) || $path |
| 476 | 0 | 0 | 0 | $shelltype ||= $self->guess_shelltype |
| 721 | 61 | 0 | 0 | mkdir $dir or -d $dir |