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