blib/lib/PAR/SetupTemp.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 12 | 32 | 37.5 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
46 | 4 | 0 | 3 | defined $ENV{'PAR_TEMP'} and $ENV{'PAR_TEMP'} =~ /(.+)/ |
55 | 2 | 0 | 2 | not $ENV{'PAR_CLEAN'} and my $mtime = (stat $PAR::SetupProgname::Progname)[9] |
59 | 0 | 0 | 2 | $ctx and open my $fh, "<$PAR::SetupProgname::Progname" |
78 | 0 | 0 | 4 | defined $ENV{'PAR_TEMP'} and $ENV{'PAR_TEMP'} =~ /(.+)/ |
99 | 0 | 0 | 4 | defined $path and -d $path |
0 | 0 | 4 | defined $path and -d $path and -w $path |
line | l | !l | condition |
---|---|---|---|
144 | 0 | 0 | $ENV{'USERNAME'} || $ENV{'USER'} || 'SYSTEM' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
86 | 0 | 0 | 0 | eval { do { require Digest::SHA; 'Digest::SHA'->new(1) } } || eval { do { require Digest::SHA1; 'Digest::SHA1'->new } } || eval { do { require Digest::MD5; 'Digest::MD5'->new } } |
106 | 3 | 1 | 0 | mkdir $temp_path, 448 or $!{'EEXIST'} |
117 | 0 | 0 | 4 | not S_ISDIR($st[2]) or $st[4] != $< |
0 | 0 | 4 | not S_ISDIR($st[2]) or $st[4] != $< or ($st[2] & 511) != 448 |