| blib/lib/No/OrgNr.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 18 | 94.4 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 2 | 5 | unless my $domain = shift() |
| 23 | 3 | 2 | unless ($domain =~ / [.] no \z /ux) |
| 41 | 8 | 1 | unless (orgnr_ok($orgnr)) |
| 50 | 1 | 0 | unless (defined $norid_handle) |
| 66 | 6 | 25 | unless my $orgnr = shift() |
| 71 | 16 | 9 | unless ($orgnr =~ /\A [89] \d{8} \z/ax) |
| 83 | 1 | 8 | $rem == 0 ? : |
| 86 | 1 | 8 | if ($control_digit == 10) |
| 90 | 1 | 7 | if ($control_digit != $d[8]) |