| blib/lib/Business/RO/CIF.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 14 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 48 | 9 | 0 | if (my $cif = $self->cif) { } |
| 61 | 1 | 9 | if ($self->cif =~ /[^0-9]/) |
| 70 | 1 | 8 | if ($len < 5) |
| 74 | 1 | 7 | if ($len > 9) |
| 85 | 0 | 7 | $m11 == 10 ? : |
| 87 | 5 | 2 | if ($self->checksum == $ctc) { } |
| 99 | 1 | 9 | if (@args == 1 and not ref $args[0]) { } |