| line |
true |
false |
branch |
|
91
|
114 |
431003 |
ref $_[0] eq 'Business::ISBN13' ? : |
|
237
|
0 |
4 |
unless defined $obj |
|
239
|
2 |
2 |
if $obj->is_valid_checksum == 1 |
|
240
|
2 |
0 |
if $obj->is_valid_checksum == -1 |
|
351
|
106713 |
106681 |
unless defined $opts |
|
352
|
106719 |
106675 |
unless defined $opts->{'strict'} |
|
354
|
213391 |
3 |
unless (defined $opts->{'normalizer'} and ref $opts->{'normalizer'} eq ref sub {
}
) |
|
355
|
106674 |
106717 |
$opts->{'strict'} ? : |
|
360
|
1 |
213393 |
unless defined $common_data |
|
362
|
39 |
213355 |
unless $common_data =~ /\A ([0-9]{3})? [0-9]{9} [0-9X] \z/x |
|
370
|
213305 |
50 |
if (length $common_data == 10) { } |
|
|
50 |
0 |
elsif (length $common_data == 13) { } |
|
431
|
12 |
1 |
if $_[0]{'valid'} < 1 |
|
521
|
640060 |
0 |
defined $_[0]{'group_code'} ? : |
|
535
|
213354 |
0 |
defined $_[0]{'publisher_code'} ? : |
|
594
|
0 |
213361 |
unless ref $self |
|
597
|
213297 |
64 |
if $self->checksum eq $self->_checksum |
|
622
|
4 |
9 |
if $last_char eq $checksum |
|
657
|
12 |
10 |
unless ref $array_ref eq ref [] |
|
662
|
0 |
22 |
unless $self->is_valid eq 1 |
|
666
|
0 |
45 |
if $position > 12 or $position < 1 |
|
737
|
0 |
4 |
unless $step == int $step and $step != 0 |
|
742
|
2 |
2 |
unless $next_article_code >= $self->article_code_min and $next_article_code <= $self->article_code_max |
|
779
|
0 |
0 |
if ($@) |
|
786
|
0 |
0 |
if ($gd_image->can('png')) { } |
|
869
|
13 |
1066726 |
unless (defined $result) |
|
895
|
213347 |
4416 |
if (defined $self->_group_data($trial)) |
|
902
|
6 |
4410 |
if $count > $self->_max_group_code_length |
|
931
|
213342 |
2432169 |
if ($trial ge $lower and $trial le $upper) |
|
962
|
13 |
0 |
if ($self->is_valid_checksum eq 1 and defined $self->group_code and defined $self->publisher_code and defined $self->prefix) { } |
|
971
|
0 |
0 |
unless defined $self->publisher_code |
|
973
|
0 |
0 |
unless defined $self->group_code |
|
975
|
0 |
0 |
unless defined $self->prefix |