| blib/lib/Data/Transpose/Validator/CreditCard.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 10 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 155 | 40 | 21 | if (validate($string)) { } |
| 161 | 40 | 21 | unless ($self->error) |
| 162 | 21 | 19 | if (my(@types) = @{$self->types;}) |
| 165 | 13 | 8 | unless (grep {lc $_ eq lc $cardtype;} @types) |
| 171 | 34 | 27 | $self->error ? : |