| line |
true |
false |
branch |
|
14
|
0 |
18 |
if $^O eq 'MacOS' |
|
39
|
197 |
5 |
if $_[0] % 512 |
|
43
|
68 |
10 |
shift() ? : |
|
44
|
17 |
13 |
$_[0] ? : |
|
45
|
179 |
73 |
$_[0] =~ /^r/ ? : |
|
50
|
4 |
41 |
unless $getpwuid or scalar getpwuid shift() |
|
51
|
4 |
41 |
unless $getgrgid or scalar getgrgid shift() |
|
64
|
0 |
8 |
$^O eq 'MacOS' ? : |
|
72
|
8 |
1 |
unless $ENV{'PERL5_AT_NO_ZLIB'} |
|
73
|
0 |
8 |
$ENV{'PERL5_AT_NO_ZLIB'} || $@ ? : |
|
78
|
8 |
0 |
unless $ENV{'PERL5_AT_NO_BZIP'} |
|
80
|
0 |
8 |
$ENV{'PERL5_AT_NO_BZIP'} || $@ ? : |
|
85
|
8 |
0 |
unless $ENV{'PERL5_AT_NO_XZ'} |
|
87
|
8 |
1 |
$ENV{'PERL5_AT_NO_XZ'} || $@ ? : |
|
97
|
111 |
0 |
if $> == 0 and $^O ne 'MacOS' |
|
105
|
0 |
9 |
unless defined $pkg |
|
115
|
33 |
408 |
unless defined $sub |
|
117
|
16 |
393 |
unless defined prototype $sub and not length prototype $sub |