| perllib/Arch/TempFiles.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 14 | 57.1 |
| line | true | false | branch |
|---|---|---|---|
| 47 | 0 | 2 | if -f $file |
| 49 | 3 | 1 | if @temp_dirs |
| 54 | 3 | 3 | if @_ |
| 61 | 0 | 9 | unless $$self{'root'} and -d $$self{'root'} |
| 69 | 0 | 9 | unless $tries |
| 97 | 3 | 0 | if mkdir $dir_name, 511 |
| 98 | 0 | 0 | if ($_[1] || 10) <= 1 |