| blib/lib/Business/ID/NPWP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 14 | 57.1 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 18 | 81 | $_[0] > 9 ? : |
| 32 | 0 | 11 | unless my $npwp = $args{'npwp'} |
| 37 | 0 | 11 | if ($npwp =~ /^\d\./) |
| 41 | 0 | 11 | if (length $npwp == 12) |
| 42 | 0 | 11 | unless length $npwp == 15 |
| 45 | 0 | 11 | if ((_z(1 * $1) + _z(2 * $2) + _z(1 * $3) + _z(2 * $4) + _z(1 * $5) + _z(2 * $6) + _z(1 * $7) + _z(2 * $8) + _z(1 * $9)) % 10) |
| 56 | 0 | 11 | if $res->{'serial'} < 1 |