| blib/lib/Data/Validate/DNS/TLSA.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 38 | 51 | 74.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 46 | 5 | 6 | 2 | $opts{'underscore'} and substr($value, 0, 1) ne '_' |
| 72 | 8 | 5 | 2 | $opts{'underscore'} and substr($value, 0, 1) ne '_' |
| 111 | 1 | 1 | 3 | is_tlsa_port($port, %opts) and is_tlsa_protocol($proto, %opts) |
| 127 | 0 | 253 | 3 | $value >= 0 and $value < 3 |
| 134 | 0 | 0 | 258 | $value >= 0 and $value <= 255 |
| 151 | 0 | 254 | 2 | $value >= 0 and $value < 2 |
| 158 | 0 | 0 | 255 | $value >= 0 and $value <= 255 |
| 175 | 0 | 252 | 4 | $value >= 0 and $value < 4 |
| 182 | 0 | 0 | 258 | $value >= 0 and $value <= 255 |
| line | l | !l | condition |
|---|---|---|---|
| 44 | 8 | 5 | $opts{'underscore'} ||= 0 |
| 69 | 7 | 8 | $opts{'underscore'} ||= 0 |
| 70 | 4 | 11 | $opts{'strict'} ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 37 | 0 | 2 | 0 | ref $class || $class |
| 56 | 0 | 1 | 8 | $port < 0 or $port > 65535 |
| 127 | 3 | 1 | 252 | $value >= 0 and $value < 3 or $value == 255 |
| 151 | 2 | 1 | 253 | $value >= 0 and $value < 2 or $value == 255 |
| 175 | 4 | 1 | 251 | $value >= 0 and $value < 4 or $value == 255 |
| 217 | 0 | 2 | 1539 | $val < 0 or $val > 255 |