| blib/lib/Business/PFR.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 14 | 78.5 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 0 | 6 | if %params |
| 35 | 0 | 6 | if @params |
| 37 | 6 | 0 | unless (defined $$self{'_is_valid'}) |
| 47 | 1 | 5 | unless defined $$self{'_maybe_pfr'} |
| 53 | 2 | 3 | if ($maybe_pfr =~ /^(\d)(\d)(\d)-(\d)(\d)(\d)-(\d)(\d)(\d) (\d{2})$/a) { } |
| 67 | 1 | 1 | if ($self->_get_check_digit($sum) eq $10) { } |
| 83 | 1 | 6 | if $sum == 100 |