| line |
true |
false |
branch |
|
48
|
0 |
61 |
unless defined $common_data |
|
72
|
1 |
60 |
unless $self->is_valid_country_code |
|
109
|
0 |
1 |
if $last_char eq $checksum |
|
119
|
1 |
2 |
unless ref $array_ref eq 'ARRAY' |
|
121
|
0 |
3 |
unless $self->is_valid eq GOOD_ISMN() |
|
126
|
0 |
3 |
if $position > 9 or $position < 1 |
|
136
|
1 |
0 |
ref $self ? : |
|
138
|
0 |
1 |
unless defined $ismn and length $ismn == 10 |
|
167
|
1320 |
458 |
if defined $tuple->[2] and $code > $tuple->[2] |
|
168
|
1 |
457 |
if $code < $tuple->[1] |
|
169
|
60 |
397 |
if ($code >= $tuple->[1] and $code <= $tuple->[2]) |
|
187
|
6 |
62 |
unless defined $data |
|
189
|
60 |
2 |
if substr($data, 9, 1) eq _checksum($data) |
|
199
|
0 |
0 |
unless length $ean == 13 |
|
200
|
0 |
0 |
unless substr($ean, 0, 3) eq 979 |
|
207
|
0 |
0 |
if $ismn->is_valid |
|
216
|
0 |
0 |
unless defined $ismn and is_valid_checksum($ismn) eq GOOD_ISMN() |
|
227
|
0 |
0 |
if ($@) |
|
241
|
0 |
1 |
if (is_valid_checksum($self->{'ismn'} eq GOOD_ISMN()) and defined $self->{'publisher_code'}) { } |
|
247
|
0 |
1 |
unless defined $self->{'publisher_code'} |
|
249
|
1 |
0 |
unless is_valid_checksum($self->{'ismn'} ne GOOD_ISMN()) |
|
258
|
0 |
63 |
unless defined $data |
|
284
|
186 |
6 |
if $data =~ /
^
(
M
\d{9}
)
$
/x |