| line |
true |
false |
branch |
|
14
|
0 |
19 |
if $^O eq "MacOS" |
|
39
|
205 |
9 |
if $_[0] % 512 |
|
43
|
75 |
10 |
shift() ? : |
|
44
|
17 |
14 |
$_[0] ? : |
|
45
|
200 |
76 |
$_[0] =~ /^r/ ? : |
|
50
|
4 |
41 |
unless $getpwuid or scalar getpwuid shift() |
|
51
|
4 |
41 |
unless $getgrgid or scalar getgrgid shift() |
|
64
|
0 |
9 |
$^O eq 'MacOS' ? : |
|
72
|
9 |
1 |
unless $ENV{'PERL5_AT_NO_ZLIB'} |
|
73
|
0 |
9 |
$ENV{'PERL5_AT_NO_ZLIB'} || $@ ? : |
|
78
|
9 |
0 |
unless $ENV{'PERL5_AT_NO_BZIP'} |
|
80
|
0 |
9 |
$ENV{'PERL5_AT_NO_BZIP'} || $@ ? : |
|
85
|
9 |
0 |
unless $ENV{'PERL5_AT_NO_XZ'} |
|
87
|
9 |
1 |
$ENV{'PERL5_AT_NO_XZ'} || $@ ? : |
|
97
|
266 |
0 |
if $> == 0 and $^O ne "MacOS" |
|
105
|
0 |
10 |
unless defined $pkg |
|
115
|
37 |
459 |
unless defined $sub |
|
117
|
18 |
442 |
unless defined prototype $sub and not length prototype $sub |