| blib/lib/File/Path/Redirect.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 26 | 65.3 |
| line | true | false | branch |
|---|---|---|---|
| 177 | 16 | 0 | if ($force or not -e $name) |
| 180 | 0 | 16 | if (file_name_is_absolute($name)) { } |
| 186 | 0 | 16 | unless open my $fh, ">", $name |
| 187 | 0 | 16 | unless print $fh "$magic$path" |
| 197 | 3 | 16 | unless (defined $limit) |
| 201 | 1 | 18 | if ($limit == 0) |
| 213 | 0 | 18 | unless defined $fd |
| 223 | 0 | 18 | unless defined $res |
| 228 | 16 | 2 | if ((my $index = index($buffer, $magic)) == 0) { } |
| 232 | 0 | 16 | if (file_name_is_absolute($new_path)) { } |
| 240 | 15 | 1 | if $trace |
| 254 | 0 | 4 | unless defined $fd |
| 263 | 0 | 4 | unless defined $res |