| 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 |