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