| line |
true |
false |
branch |
|
50
|
0 |
61 |
unless defined $common_data |
|
74
|
1 |
60 |
unless $self->is_valid_country_code |
|
111
|
0 |
1 |
if $last_char eq $checksum |
|
121
|
1 |
2 |
unless ref $array_ref eq 'ARRAY' |
|
123
|
0 |
3 |
unless $self->is_valid eq GOOD_ISMN() |
|
128
|
0 |
3 |
if $position > 9 or $position < 1 |
|
138
|
1 |
0 |
ref $self ? : |
|
140
|
0 |
1 |
unless defined $ismn and length $ismn == 10 |
|
169
|
1320 |
458 |
if defined $tuple->[2] and $code > $tuple->[2] |
|
170
|
1 |
457 |
if $code < $tuple->[1] |
|
171
|
60 |
397 |
if ($code >= $tuple->[1] and $code <= $tuple->[2]) |
|
189
|
6 |
62 |
unless defined $data |
|
191
|
60 |
2 |
if substr($data, 9, 1) eq _checksum($data) |
|
201
|
0 |
0 |
unless length $ean == 13 |
|
202
|
0 |
0 |
unless substr($ean, 0, 3) eq 979 |
|
209
|
0 |
0 |
if $ismn->is_valid |
|
218
|
0 |
0 |
unless defined $ismn and is_valid_checksum($ismn) eq GOOD_ISMN() |
|
229
|
0 |
0 |
if ($@) |
|
243
|
0 |
1 |
if (is_valid_checksum($self->{'ismn'} eq GOOD_ISMN()) and defined $self->{'publisher_code'}) { } |
|
249
|
0 |
1 |
unless defined $self->{'publisher_code'} |
|
251
|
1 |
0 |
unless is_valid_checksum($self->{'ismn'} ne GOOD_ISMN()) |
|
260
|
0 |
63 |
unless defined $data |
|
286
|
186 |
6 |
if $data =~ /
^
(
M
\d{9}
)
$
/x |