| blib/lib/PPM/RelocPerl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 24 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 0 | 0 | if (-l $_) { } |
| 0 | 0 | elsif (-B $_) { } | |
| 0 | 0 | elsif (-e $_ and -s $_ and -f $_) { } | |
| 39 | 0 | 0 | unless open F, "<$file" |
| 40 | 0 | 0 | if $binmode |
| 42 | 0 | 0 | if (/\Q$frompath\E/o) |
| 61 | 0 | 0 | unless open F, "+<$file" |
| 62 | 0 | 0 | if $binmode |
| 64 | 0 | 0 | if ($binmode) { } |
| 69 | 0 | 0 | unless seek F, 0, 0 |
| 79 | 0 | 0 | defined $opt_topath ? : |
| 80 | 0 | 0 | defined $opt_frompath ? : |