| blib/lib/Text/XLogfile.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 26 | 76.9 |
| line | true | false | branch |
|---|---|---|---|
| 34 | 2 | 98 | unless defined $value |
| 46 | 0 | 5 | unless open my $handle, '<', $filename |
| 54 | 0 | 5 | unless close $handle |
| 62 | 0 | 2 | unless open my $handle, '>', $filename |
| 66 | 0 | 6 | unless print {$handle;} make_xlogline($entry, 1), "\n" |
| 70 | 0 | 2 | unless close $handle |
| 82 | 8 | 16 | if (not $correct) { } |
| 5 | 11 | elsif ($correct == -1) { } | |
| 11 | 0 | elsif ($correct == 1) { } | |
| 84 | 3 | 38 | if ($key =~ /([=:\n])/) |
| 85 | 1 | 2 | $bad eq "\n" ? : |
| 90 | 2 | 36 | if ($value =~ /([:\n])/) |
| 91 | 1 | 1 | $bad eq "\n" ? : |