| line |
true |
false |
branch |
|
18
|
1 |
0 |
if (-T $filename) |
|
21
|
1 |
0 |
if (@lines and $lines[0] =~ s[ \A \#! \s* (?:/\S+/)? perl \b (.*) \z ][$ExtUtils::Helpers::Unix::Config{'startperl'}$1]msx) |
|
22
|
0 |
1 |
unless open my $out, ">$layer", "$filename.new" |
|
25
|
0 |
1 |
unless rename $filename, "$filename.bak" |
|
26
|
0 |
1 |
unless rename "$filename.new", $filename |
|
37
|
0 |
5 |
unless defined $string |
|
39
|
0 |
5 |
unless length $string |
|
48
|
0 |
5 |
unless $ENV{'HOME'} |
|
|
4 |
5 |
unless s[ ^ ~ (?= /|$)][(getpwuid $>)[7] unless $ENV{'HOME'};]ex |
|
49
|
2 |
1 |
unless (getpwnam $1)[7] |