| blib/lib/Business/ID/NIK.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 26 | 65.3 |
| line | true | false | branch |
|---|---|---|---|
| 50 | 1 | 2 | unless ($provinces) |
| 52 | 0 | 1 | if $res->[0] != 200 |
| 57 | 0 | 3 | unless my $nik = $args{'nik'} |
| 61 | 0 | 3 | unless length $nik == 16 |
| 64 | 3 | 0 | if ($args{'check_province'} // 1) |
| 66 | 0 | 3 | unless $p |
| 72 | 3 | 0 | if ($args{'check_locality'} // 1) |
| 75 | 0 | 3 | unless $lres->[0] == 200 |
| 78 | 0 | 3 | unless $l |
| 85 | 1 | 2 | if ($d > 40) { } |
| 93 | 1 | 2 | if $y > $today->year |
| 95 | 1 | 2 | if ($@) |
| 100 | 0 | 2 | if $res->{'serial'} < 1 |