| blib/lib/File/Tudo.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 16 | 68.7 |
| line | true | false | branch |
|---|---|---|---|
| 34 | 1 | 2 | if ($read and -s $self->{'Path'}) |
| 47 | 2 | 0 | unless (defined $path) |
| 60 | 9 | 3 | unless (defined $todo) |
| 64 | 0 | 3 | unless (ref $todo eq "ARRAY") |
| 80 | 0 | 2 | unless open my $fh, "<", $path |
| 87 | 9 | 14 | if ($l eq '--') { } |
| 108 | 0 | 3 | unless open my $fh, ">", $path |
| 115 | 0 | 8 | if ($todo =~ /(^|\n)--($|\n)/u) |