| lib/At/Protocol/NSID.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 20 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 53 | 38 | 179 | unless $nsid =~ /^[a-zA-Z0-9.-]*$/u |
| 55 | 2 | 177 | if length $nsid > 317 |
| 59 | 10 | 167 | if scalar @labels < 3 |
| 63 | 4 | 658 | unless length $l |
| 64 | 4 | 654 | if length $l > 63 |
| 65 | 4 | 650 | if $l =~ /^-|-$/u |
| 66 | 4 | 646 | if $i == 0 and $l =~ /^[0-9]/u |
| 67 | 5 | 641 | if $i == $#labels and not $l =~ /^[a-zA-Z][a-zA-Z0-9]*$/u |
| 76 | 57 | 116 | unless $nsid =~ /^[a-zA-Z]([a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?(\.[a-zA-Z0-9]([a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?)+(\.[a-zA-Z][a-zA-Z0-9]{0,62})$/u |
| 78 | 2 | 114 | if length $nsid > 317 |