| line |
true |
false |
branch |
|
58
|
31 |
2 |
if ($number =~ /^($self->{'pattern'})([0-9])$/i) |
|
66
|
14 |
0 |
if ($number =~ /^$self->{'pattern'}$/i) |
|
74
|
14 |
0 |
if ($number =~ /^($self->{'pattern'})([0-9])$/i) |
|
75
|
14 |
0 |
if $2 == $self->_compute_checkdigit(uc $1) |
|
82
|
14 |
0 |
if ($number =~ /^($self->{'pattern'})([0-9])$/i) |
|
83
|
14 |
0 |
if $2 == $self->_compute_checkdigit(uc $1) |
|
92
|
0 |
73 |
if ($omitprefix{$self->{'type'}}) |
|
95
|
0 |
0 |
if ($number =~ /^$p([0-9]+)$/) |
|
101
|
5 |
68 |
if ('isin' eq $self->{'type'}) { } |
|
|
2 |
66 |
elsif ('imeisv' eq $self->{'type'}) { } |
|
109
|
2 |
0 |
if 'imeisv' eq $self->{'type'} |
|
116
|
463 |
428 |
if ($even) { } |
|
130
|
5 |
11 |
if ('cusip' eq $self->{'type'}) { } |