| blib/lib/TinyDNS/Reader.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 14 | 42.8 |
| line | true | false | branch |
|---|---|---|---|
| 68 | 0 | 10 | if ($supplied{'file'}) { } |
| 10 | 0 | elsif ($supplied{'text'}) { } | |
| 100 | 0 | 0 | unless open my $handle, '<', $file |
| 133 | 0 | 11 | unless $line and length $line |
| 139 | 0 | 11 | unless $line and length $line |
| 145 | 0 | 11 | if $line =~ /^\s*[:.]/ |
| 151 | 11 | 0 | if $rec |