Branch Coverage

Bio/Tools/ECnumber.pm
Criterion Covered Total %
branch 38 48 79.1


line true false branch
168 13 1 if $EC_string
169 2 12 if $comment
244 13 2 if (defined $value)
249 13 0 if ($value =~ /^([\d-]*)\.([\d-]*)\.([\d-]*)\.([\d-]*)$/) { }
306 3 1 if ($self->_is_not_reference($value)) { }
313 0 4 unless ($self->enzyme_class eq $value->enzyme_class)
316 0 4 unless ($self->sub_class eq $value->sub_class)
319 0 4 unless ($self->sub_sub_class eq $value->sub_sub_class)
322 2 2 unless ($self->serial_number eq $value->serial_number)
348 8 2 if ($self->_is_not_reference($value)) { }
357 1 9 unless ($value->enzyme_class eq '-' or $self->enzyme_class eq $value->enzyme_class)
361 0 9 unless ($value->sub_class eq '-' or $self->sub_class eq $value->sub_class)
365 1 8 unless ($value->sub_sub_class eq '-' or $self->sub_sub_class eq $value->sub_sub_class)
369 1 7 unless ($value->serial_number eq '-' or $self->serial_number eq $value->serial_number)
394 30 74 if (defined $value)
419 30 71 if (defined $value)
444 30 70 if (defined $value)
469 30 42 if (defined $value)
494 18 2 if (defined $value)
514 0 120 if ($value eq '')
518 0 120 if ($value eq '') { }
0 196 elsif ($value ne '-' and $value =~ /\D/) { }
539 0 20 if ($self->sub_sub_class eq '-' and $self->serial_number ne '-' or $self->sub_class eq '-' and $self->sub_sub_class ne '-' or $self->enzyme_class eq '-' and $self->sub_class ne '-')
573 0 3 unless ($value->isa('Bio::Tools::ECnumber'))