Branch Coverage

blib/lib/Business/ISBN.pm
Criterion Covered Total %
branch 38 56 67.8


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
761 9 533357 unless (defined $result)
787 106673 2215 if (defined $self->_group_data($trial))
794 4 2211 if $count > $self->_max_group_code_length
823 106669 1109848 if ($trial ge $lower and $trial le $upper)
854 13 0 if ($self->is_valid_checksum eq 1 and defined $self->group_code and defined $self->publisher_code and defined $self->prefix) { }
863 0 0 unless defined $self->publisher_code
865 0 0 unless defined $self->group_code
867 0 0 unless defined $self->prefix