| blib/lib/Command/Run/Tmpfile.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 3 | 5 | 60.0 |
| line | l | !l | condition |
|---|---|---|---|
| 28 | 28 | 0 | $found // "" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 22 | 163 | 28 | 0 | $fdpath //= do { my $fd = $fh->fileno; my $found; foreach my $path ("/proc/self/fd", "/dev/fd") { if (-r "$path/$fd") { $found = $path; last; } ; } ; $found // "" } |