| line |
true |
false |
branch |
|
196
|
3 |
37 |
if ($record_type eq "01")
|
|
200
|
3 |
37 |
if ($record_type eq "02")
|
|
207
|
8 |
32 |
if ($record_type eq "03")
|
|
214
|
12 |
28 |
if ($record_type eq 16)
|
|
221
|
8 |
32 |
if ($record_type eq 49)
|
|
224
|
5 |
3 |
$File->is_bai2 ? :
|
|
231
|
3 |
37 |
if ($record_type eq 98)
|
|
235
|
2 |
1 |
$File->is_bai2 ? :
|
|
242
|
3 |
37 |
if ($record_type eq 99)
|
|
246
|
1 |
2 |
unless $File->is_bai2
|
|
274
|
0 |
5 |
if $num_groups != $self->number_of_groups
|
|
280
|
0 |
5 |
if $num_raw_records != $self->number_of_records
|
|
290
|
2 |
3 |
unless ($self->is_bai2)
|
|
296
|
0 |
5 |
if $group_total_a != $self->control_total_a
|
|
300
|
2 |
3 |
unless ($self->is_bai2)
|
|
301
|
0 |
2 |
if $group_total_b != $self->control_total_b
|
|
339
|
0 |
99 |
unless my $aoa = csv("in", \$line)
|
|
347
|
84 |
15 |
if ($rest[-1] =~ m[/$]) { }
|
|
354
|
43 |
56 |
if ($record_type eq '88') { }
|
|
359
|
6 |
37 |
if ($records[-1][0] eq '16' and scalar @{$records[-1]} == 7) { }
|
|
404
|
2 |
1 |
scalar @fields == 8 ? :
|