| blib/lib/Data/Validate/DNS/CAA.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 24 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 33 | 9 | 1 | unless (defined $opts{'strict'}) |
| 37 | 9 | 1 | if ($opts{'strict'}) { } |
| 39 | 7 | 2 | if (lc $value eq any(('issue', 'issuewild', 'iodef'))) |
| 47 | 1 | 0 | unless ($value =~ /[^a-zA-Z0-9]/) |
| 63 | 6 | 2 | if ($tag eq 'issue') { } |
| 0 | 2 | elsif ($tag eq 'issuewild') { } | |
| 0 | 2 | elsif ($tag eq 'iodef') { } | |
| 92 | 19 | 5 | if ($value =~ qr/^$issue_re$/) |
| 111 | 1 | 6 | if (is_web_uri($value)) |
| 117 | 3 | 3 | if (lc $value =~ /^mailto:\S+\@\S+/) |
| 120 | 3 | 0 | if (is_email($value)) |
| 131 | 17 | 32 | if ref $_[0] |