| blib/lib/Devel/PatchPerl/Plugin/Darwin/getcwd.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 14 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 12 | 0 | 0 | if ($^O ne "darwin") |
| 16 | 0 | 0 | if ($version >= v5.30.0) |
| 26 | 0 | 0 | unless $file |
| 31 | 0 | 0 | unless open my $in, "<", $file |
| 32 | 0 | 0 | unless open my $out, ">", "$file.tmp" |
| 35 | 0 | 0 | if ($l =~ /\Q$find\E/) |
| 41 | 0 | 0 | unless rename "$file.tmp", $file |