Branch Coverage

blib/lib/TAP3/Tap3edit.pm
Criterion Covered Total %
branch 87 132 65.9


line true false branch
88 14 0 if (@_)
104 14 0 if (@_)
105 14 0 if (not $$self{'_version'}) { }
127 5 0 if (@_)
128 5 0 if (not $$self{'_supl_version'}) { }
149 14 0 if (@_)
150 14 0 if (not $$self{'_release'}) { }
172 5 0 if (@_)
173 5 0 if (not $$self{'_supl_release'}) { }
194 14 105 if (@_)
195 14 0 if (not $$self{'_file_type'}) { }
198 0 14 unless ($file_type =~ /^[TR]AP$|^NRT$/)
226 0 14 unless $self->_get_file_version
241 42 28 if (@_)
257 14 84 if (@_)
274 5 48 if (@_)
292 0 14 if (@_)
309 28 28 if (@_)
325 0 28 if (@_)
424 0 28 unless (open FILE, "<$filename")
462 0 6090 if (defined $1)
465 16 6074 if (defined $2)
468 0 6090 if (defined $3)
471 10 6080 if (defined $4)
474 16 6074 if (defined $5)
477 16 6074 if (defined $6)
480 0 6090 if (defined $7)
483 0 6090 if (defined $8)
486 2 6088 if (defined $9)
489 2 6088 if (defined $10)
492 2 6088 if (defined $11)
501 16 12 if ($file_type eq 'TAP' or $file_type eq 'NOT') { }
0 12 elsif ($file_type eq 'RAP') { }
10 2 elsif ($file_type eq 'ACK') { }
2 0 elsif ($file_type eq 'NRT') { }
502 0 16 if (not $release && $version) { }
511 0 0 if ($rap_version and $rap_release)
512 0 0 if (not $release && $version) { }
530 0 2 if (not $release && $version) { }
576 19 0 if ($spec_file)
612 14 14 unless ($self->spec_file)
613 0 14 unless $self->spec_file($self->_select_spec_file($$self{'_version'}, $$self{'_release'}, $self->file_type))
620 5 23 if (not $self->supl_spec_file and $self->file_type eq 'RAP')
621 0 5 unless $self->supl_spec_file($self->_select_spec_file($$self{'_supl_version'}, $$self{'_supl_release'}, 'TAP'))
632 0 28 unless (($size) = (stat $self->spec_file)[7])
633 0 28 unless (open FILE, '<' . $self->spec_file)
636 23790 1360 if (/^...Structure of a (... batch|...... record)/ ... /END/)
637 23744 28 unless ($_ =~ /Structure of a (Tap batch|NRTRDE)/ or $_ =~ /END/)
649 10 18 if ($self->file_type eq 'RAP')
650 0 10 unless (($size) = (stat $self->supl_spec_file)[7])
651 0 10 unless (open FILE, '<' . $self->supl_spec_file)
653 15710 480 if (/^...Structure of a ... batch/ ... /END/)
654 15690 10 unless ($_ =~ /Structure of a Tap batch/ or $_ =~ /END/)
691 0 28 unless ($asn->prepare($spec_buf_in))
699 16 12 if ($self->file_type eq 'TAP') { }
2 10 elsif ($self->file_type eq 'NRT') { }
700 0 16 unless ($dic_asn = $asn->find('DataInterChange'))
702 0 2 unless ($dic_asn = $asn->find('Nrtrde'))
704 0 10 unless ($dic_asn = $asn->find('RapDataInterChange'))
735 0 14 unless $self->_get_file_version
742 0 14 unless $self->_select_asn_struct
750 0 14 unless (open $FILE, "<$filename")
760 0 14 unless ($$self{'_dic_decode'} = $self->_dic_asn->decode($buf_in))
794 0 14 unless $self->_select_asn_struct
801 0 14 unless (my $buf_out = $self->_dic_asn->encode($self->_dic_decode))
808 0 14 unless (open FILE_OUT, ">$filename")