| blib/lib/Business/SEDOL.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 22 | 22 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 64 | 13 | 253 | if @_ |
| 83 | 12 | 133 | if (length $val != 7) |
| 88 | 106 | 27 | if ($val =~ /^\d/) { } |
| 90 | 22 | 84 | if ($val =~ /\D/) |
| 96 | 5 | 22 | if (not $val =~ /^[$valid_alpha]/o) { } |
| 3 | 19 | elsif (not $val =~ /^.[\d$valid_alpha]{5}/o) { } | |
| 1 | 18 | elsif ($val =~ /\D$/) { } | |
| 120 | 33 | 39 | unless _check_format($val) |
| 123 | 12 | 27 | if (substr($self->sedol, -1, 1) eq $c) { } |
| 153 | 12 | 61 | if length $sedol == 6 |
| 154 | 10 | 63 | unless _check_format($sedol) |