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