| blib/lib/Business/CUSIP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 18 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 69 | 25 | 257 | if @_ |
| 82 | 2 | 79 | if @_ |
| 120 | 12 | 119 | unless (length $val == 9) |
| 124 | 14 | 105 | unless ($val =~ /^\d{3}/) |
| 128 | 18 | 87 | unless ($val =~ /^.{3}[A-Z0-9\@#*]{5}/) |
| 132 | 12 | 75 | unless ($val =~ /\d$/) |
| 142 | 15 | 60 | if ($self->is_fixed_income and substr($self->cusip, 6, 2) =~ /[I1O0]/) |
| 148 | 36 | 24 | unless $r |
| 173 | 4 | 24 | unless defined $r |