| blib/lib/Business/ISSN.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 16 | 93.7 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 2 | 5 | unless $common_data |
| 53 | 2 | 2 | if $last_char eq $checksum |
| 58 | 2 | 4 | unless $_[0]->is_valid |
| 69 | 2 | 14 | unless $data |
| 70 | 8 | 6 | if substr($data, -1, 1) eq _checksum($data) |
| 81 | 0 | 18 | unless $data |
| 94 | 8 | 10 | if $checksum == 10 |
| 106 | 37 | 4 | if $data =~ /^[0-9]{7}[0-9X]\z/ |