| 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
|
23812 |
1360 |
if (/^...Structure of a (... batch|...... record)/ ... /END/) |
|
637
|
23766 |
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") |