Branch Coverage

blib/lib/No/OrgNr.pm
Criterion Covered Total %
branch 15 18 83.3


line true false branch
20 2 5 unless my $domain = shift()
22 3 2 unless ($domain =~ / [.] no \z /ux)
42 8 0 unless (orgnr_ok($orgnr))
51 0 0 unless (defined $norid_handle)
67 6 24 unless my $orgnr = shift()
72 16 8 unless ($orgnr =~ /\A [89] \d{8} \z/ax)
84 1 7 $rem == 0 ? :
87 1 7 if ($control_digit == 10)
91 1 6 if ($control_digit != $d[8])