| line |
true |
false |
branch |
|
14
|
0 |
18 |
if $^O eq "MacOS" |
|
39
|
177 |
7 |
if $_[0] % 512 |
|
43
|
69 |
0 |
shift() ? : |
|
44
|
15 |
15 |
$_[0] ? : |
|
45
|
182 |
75 |
$_[0] =~ /^r/ ? : |
|
50
|
4 |
50 |
unless $getpwuid or scalar getpwuid shift() |
|
51
|
4 |
50 |
unless $getgrgid or scalar getgrgid shift() |
|
64
|
0 |
18 |
$^O eq 'MacOS' ? : |
|
72
|
18 |
0 |
unless $ENV{'PERL5_AT_NO_ZLIB'} |
|
73
|
0 |
18 |
$ENV{'PERL5_AT_NO_ZLIB'} || $@ ? : |
|
78
|
18 |
0 |
unless $ENV{'PERL5_AT_NO_BZIP'} |
|
80
|
0 |
18 |
$ENV{'PERL5_AT_NO_BZIP'} || $@ ? : |
|
85
|
18 |
0 |
unless $ENV{'PERL5_AT_NO_XZ'} |
|
87
|
18 |
0 |
$ENV{'PERL5_AT_NO_XZ'} || $@ ? : |
|
97
|
266 |
0 |
if $> == 0 and $^O ne "MacOS" |
|
105
|
0 |
18 |
unless defined $pkg |
|
115
|
72 |
918 |
unless defined $sub |
|
117
|
36 |
882 |
unless defined prototype $sub and not length prototype $sub |