| blib/lib/Business/FR/RIB.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 14 | 78.5 |
| line | true | false | branch |
|---|---|---|---|
| 51 | 2 | 3 | unless $rib =~ /^\d{10}[\da-zA-Z]{11}(\d{2})$/ |
| 54 | 0 | 3 | if $1 > 97 or $1 < 1 |
| 103 | 1 | 2 | if $rib |
| 116 | 0 | 3 | if $len != 11 |
| 120 | 33 | 0 | if (not $car =~ /^\d$/) { } |
| 129 | 2 | 1 | length $int >= 21 && 'Math::BigInt'->new($int)->bmod(97) == 0 ? : |
| 149 | 1 | 1 | if $rib |