| blib/lib/Business/HK/IdentityCard.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 12 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 1 | 1 | unless $self->is_valid |
| 45 | 1 | 1 | unless $self->is_valid |
| 58 | 1 | 13 | unless defined $raw_id |
| 69 | 8 | 5 | if ($$self{'raw_id'} =~ qr/ ([a-z]{1,2}) # One or two prefix characters (\d{6}) # Exactly six digits \(* # Optional bracket ([0-9a]) # Checksum, 0-9 or A for 10 \)* # Optional bracket /xi) |
| 119 | 1 | 7 | if $check_digit == 10 |
| 135 | 1 | 7 | if (scalar @prefix_chars == 2) |