| line |
true |
false |
branch |
|
91
|
82 |
215486 |
ref $_[0] eq 'Business::ISBN13' ? : |
|
179
|
0 |
4 |
unless defined $obj |
|
181
|
2 |
2 |
if $obj->is_valid_checksum == 1 |
|
182
|
2 |
0 |
if $obj->is_valid_checksum == -1 |
|
249
|
10 |
106678 |
unless $common_data |
|
257
|
106643 |
35 |
if (length $common_data == 10) { } |
|
|
35 |
0 |
elsif (length $common_data == 13) { } |
|
318
|
12 |
1 |
if $_[0]{'valid'} < 1 |
|
408
|
320039 |
0 |
defined $_[0]{'group_code'} ? : |
|
422
|
106681 |
0 |
defined $_[0]{'publisher_code'} ? : |
|
481
|
0 |
106688 |
unless ref $self |
|
484
|
106657 |
31 |
if $self->checksum eq $self->_checksum |
|
509
|
4 |
9 |
if $last_char eq $checksum |
|
544
|
12 |
10 |
unless ref $array_ref eq ref [] |
|
549
|
0 |
22 |
unless $self->is_valid eq 1 |
|
553
|
0 |
45 |
if $position > 12 or $position < 1 |
|
624
|
0 |
4 |
unless $step == int $step and $step != 0 |
|
629
|
2 |
2 |
unless $next_article_code >= $self->article_code_min and $next_article_code <= $self->article_code_max |
|
666
|
0 |
0 |
if ($@) |
|
717
|
106678 |
10 |
if $data =~ /
\A #anchor at start
(
(?:\d\d\d)?
\d{9}[0-9X]
)
\z #anchor at end
/x |
|
762
|
9 |
533357 |
unless (defined $result) |
|
790
|
106673 |
2215 |
if (defined $self->_group_data($trial)) |
|
798
|
4 |
2211 |
if $count > $self->_max_group_code_length |
|
827
|
106669 |
1107435 |
if ($trial ge $lower and $trial le $upper) |
|
858
|
13 |
0 |
if ($self->is_valid_checksum eq 1 and defined $self->group_code and defined $self->publisher_code and defined $self->prefix) { } |
|
867
|
0 |
0 |
unless defined $self->publisher_code |
|
869
|
0 |
0 |
unless defined $self->group_code |
|
871
|
0 |
0 |
unless defined $self->prefix |