| lib/App/AllKnowingDNS/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 20 | 85.0 |
| line | true | false | branch |
|---|---|---|---|
| 45 | 4 | 12 | if substr($line, 0, 1) eq '#' |
| 48 | 1 | 11 | if length $line == 0 |
| 52 | 0 | 2 | unless (defined $current_zone or $line =~ /^network/i or $line =~ /^listen/i) |
| 58 | 2 | 9 | if (my($address) = $line =~ /^listen (.*)/i) |
| 63 | 3 | 6 | if (my($network) = $line =~ /^network (.*)/i) |
| 65 | 1 | 2 | if defined $current_zone |
| 72 | 3 | 3 | if (my($resolves_to) = $line =~ /^resolves to (.*)/i) |
| 80 | 3 | 0 | if (my($upstream_dns) = $line =~ /^with upstream (.*)/i) |
| 86 | 2 | 3 | if defined $current_zone |
| 105 | 0 | 12 | if ($mask % 16 != 0) |