| blib/lib/Business/PFR.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 12 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 0 | 7 | if %params |
| 32 | 0 | 7 | if @params |
| 34 | 7 | 0 | unless (defined $self->{'_is_valid'}) |
| 44 | 1 | 6 | unless defined $self->{'_maybe_pfr'} |
| 50 | 3 | 3 | if ($maybe_pfr =~ /^(\d)(\d)(\d)-(\d)(\d)(\d)-(\d)(\d)(\d) (\d{2})$/a) { } |
| 64 | 2 | 1 | if ($self->_get_check_digit($sum) eq $10) { } |