| blib/lib/Net/DNS/ZoneParse/Parser/Native.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 32 | 59.3 |
| line | true | false | branch |
|---|---|---|---|
| 95 | 0 | 0 | unless $tail |
| 106 | 6 | 8 | if substr($name, 0, 1) eq '$' |
| 113 | 14 | 0 | $name ? : |
| 114 | 6 | 8 | if (substr($name, 0, 1) eq '$') |
| 116 | 0 | 6 | unless ($_dns_directives{$directive}) |
| 124 | 4 | 4 | if $line =~ /^\s*$/ |
| 135 | 0 | 9 | unless $type |
| 136 | 4 | 5 | if ($_dns_classes{uc $type}) |
| 140 | 1 | 4 | if ($type =~ /$_dns_ttlre/) |
| 146 | 0 | 4 | unless $prep{'type'} |
| 169 | 4 | 0 | unless $ret |
| 177 | 10 | 0 | unless $ele |
| 178 | 0 | 0 | unless $ele->check |
| 0 | 0 | if ($ele->can('check')) | |
| 204 | 0 | 23 | if (s/^"(.*?)\s*(? |
| 19 | 4 | elsif (s/^(\S+)\s*//) { } |