| line |
true |
false |
branch |
|
21
|
0 |
0 |
if (@path) |
|
22
|
0 |
0 |
unless ($ENV{'PERL_DEVEL_LOCAL_QUIET'}) |
|
36
|
4 |
2 |
if (not @args) { } |
|
|
2 |
0 |
elsif (@args == 1 and $args[0] =~ /^[\!\?]$/) { } |
|
44
|
2 |
10 |
if ($_ eq '|') { } |
|
|
4 |
6 |
elsif ($found) { } |
|
|
3 |
3 |
$ENV{$name} ? : |
|
57
|
2 |
4 |
if ($cmd eq '!') |
|
60
|
0 |
4 |
if ($cmd eq '?') |
|
61
|
0 |
0 |
scalar @left ? : |
|
68
|
4 |
0 |
scalar @left ? : |
|
75
|
0 |
0 |
$ENV{'HOME'} && -f $home_file ? : |
|
|
4 |
0 |
-f $dot_file ? : |
|
|
0 |
4 |
$ENV{'PERL_DEVEL_LOCAL'} ? : |
|
83
|
12 |
0 |
if defined $ENV{'HOME'} |
|
87
|
0 |
12 |
/\*/ ? : |
|
90
|
0 |
0 |
/\*/ ? : |
|
|
4 |
0 |
-f $_ ? : |
|
102
|
4 |
8 |
if ($name eq 'PERL5LIB' and -d $lib) { } |
|
|
4 |
6 |
elsif ($name eq 'PATH' and -d $bin) { } |
|
104
|
0 |
4 |
if (has_xs($dir)) |
|
111
|
4 |
8 |
unless @add |
|
128
|
0 |
16 |
if /\.xs$/ |
|
135
|
0 |
4 |
unless $file and -f $file |
|
136
|
0 |
4 |
unless open my $f, $file |
|
140
|
0 |
12 |
unless $line =~ /\S/ |
|
141
|
0 |
12 |
if $line =~ /^\s*#/ |