| line |
true |
false |
branch |
|
24
|
0 |
0 |
unless my $module = shift() |
|
28
|
0 |
0 |
unless (defined $PERL_HACK_LIB) |
|
34
|
0 |
0 |
unless (-d "$PERL_HACK_LIB/$slashed_module") |
|
35
|
0 |
0 |
unless File::Path::make_path("$PERL_HACK_LIB/$slashed_module") |
|
41
|
0 |
0 |
if ($dir_in_inc eq $PERL_HACK_LIB) |
|
44
|
0 |
0 |
if (-f "$dir_in_inc/$slashed_module.pm") |
|
50
|
0 |
0 |
unless (defined $found_pm) |
|
54
|
0 |
0 |
unless (-f "$PERL_HACK_LIB/$slashed_module.pm") |
|
55
|
0 |
0 |
unless File::Copy::copy($found_pm, "$PERL_HACK_LIB/$slashed_module.pm") |
|
61
|
0 |
0 |
unless $INC[0] eq $PERL_HACK_LIB |
|
64
|
0 |
0 |
$@ ? : |