| line |
true |
false |
branch |
|
38
|
0 |
30 |
unless &GetOptions(\%option, "ahl=s", "all_operators", "bitmap", "codetables", "data_only", "filter=s", "help", "nodata", "noqc", "on_error_stop", "optional_section", "outfile=s", "param=s", "strict_checking=i", "tableformat=s", "tablepath=s", "verbose=i", "width=i") |
|
62
|
0 |
30 |
if $option{'help'} |
|
65
|
0 |
30 |
unless @ARGV |
|
68
|
1 |
29 |
if $option{'verbose'} |
|
71
|
1 |
29 |
if $option{'nodata'} |
|
74
|
1 |
29 |
if $option{'noqc'} |
|
76
|
3 |
27 |
if defined $option{'strict_checking'} |
|
78
|
3 |
27 |
if defined $option{'all_operators'} |
|
81
|
1 |
29 |
defined $option{'tableformat'} ? : |
|
85
|
30 |
0 |
if ($option{'tablepath'}) { } |
|
|
0 |
0 |
elsif ($ENV{'BUFR_TABLES'}) { } |
|
93
|
0 |
0 |
if ($tableformat eq 'BUFRDC') { } |
|
|
0 |
0 |
elsif ($tableformat eq 'ECCODES') { } |
|
101
|
1 |
29 |
if ($option{'ahl'}) |
|
103
|
0 |
1 |
if $@ |
|
108
|
1 |
29 |
if ($option{'outfile'}) { } |
|
110
|
0 |
1 |
unless open $OUT, ">", $option{'outfile'} |
|
116
|
3 |
27 |
if ($option{'param'}) |
|
128
|
2 |
28 |
if ($option{'filter'}) |
|
132
|
2 |
28 |
$option{'width'} ? : |
|
140
|
1 |
29 |
if $option{'ahl'} |
|
173
|
11 |
112 |
if ($@) |
|
175
|
0 |
11 |
if $option{'ahl'} and not $current_ahl =~ /$ahl_regexp/ |
|
181
|
11 |
0 |
if (defined $current_message_number) |
|
183
|
8 |
3 |
if $current_ahl |
|
185
|
11 |
0 |
if $error_msg |
|
187
|
0 |
11 |
if $option{'on_error_stop'} |
|
191
|
5 |
107 |
if $option{'ahl'} and $bufr->is_filtered |
|
193
|
8 |
99 |
if ($option{'codetables'} and not $option{'nodata'}) |
|
200
|
5 |
3 |
if ($tableformat eq 'BUFRDC') { } |
|
|
3 |
0 |
elsif ($tableformat eq 'ECCODES') { } |
|
210
|
30 |
77 |
if $current_subset_number == 0 |
|
212
|
46 |
31 |
if ($current_subset_number == 1 or $option{'nodata'}) { } |
|
216
|
46 |
0 |
defined $current_ahl ? : |
|
221
|
1 |
45 |
if $option{'filter'} and filter_observation($bufr, $data, $descriptors) |
|
225
|
43 |
2 |
unless ($option{'data_only'}) |
|
229
|
0 |
43 |
if $option{'optional_section'} |
|
233
|
3 |
42 |
if $option{'nodata'} |
|
236
|
2 |
29 |
if $option{'filter'} and filter_observation($bufr, $data, $descriptors) |
|
240
|
1 |
1 |
if ($option{'filter'} and not $option{'data_only'} and not $section013_dumped) |
|
245
|
0 |
1 |
if $option{'optional_section'} |
|
251
|
6 |
65 |
if ($option{'param'}) |
|
265
|
7 |
64 |
$option{'bitmap'} ? : |
|
269
|
0 |
71 |
if ($@) { } |
|
273
|
0 |
0 |
if $current_ahl |
|
276
|
0 |
0 |
if $option{'on_error_stop'} |
|
287
|
0 |
3 |
unless open my $fh, "<", $descriptor_file |
|
291
|
0 |
39 |
unless /^\s*(\d{6})/ |
|
294
|
0 |
3 |
unless close $fh |
|
306
|
156 |
700 |
if (grep {$id == $_;} @requested_desc) |
|
324
|
3 |
5 |
$ahl =~ /$ahl_regexp/ ? : |
|
333
|
0 |
2 |
unless open my $fh, "<", $filter_file |
|
338
|
3 |
26 |
if /^\s*$/ |
|
340
|
9 |
17 |
if (s/^\s*D(!)?://) { } |
|
344
|
0 |
10 |
unless $desc =~ /^\d+$/ |
|
351
|
4 |
5 |
$1 ? : |
|
352
|
4 |
5 |
if $1 |
|
358
|
0 |
17 |
if scalar @values != scalar @{$fid[$num_criteria];} |
|
364
|
0 |
2 |
unless close $fh |
|
373
|
0 |
6 |
unless ref $bufr eq "Geo::BUFR" |
|
383
|
3 |
23 |
if ($num_val[$filter_criterion] == 0) { } |
|
390
|
3 |
335 |
if ($descriptors->[$j] == $filter_desc) |
|
392
|
3 |
0 |
if ($nmatch == $num_desc[$filter_criterion]) |
|
395
|
3 |
0 |
if ($required[$filter_criterion]) { } |
|
397
|
2 |
0 |
if ($num_success_req_criteria == $num_required_criteria and $num_ordinary_criteria == 0 || $num_success_ord_criteria > 0) |
|
404
|
0 |
0 |
if ($num_success_req_criteria == $num_required_criteria) |
|
421
|
47 |
1985 |
if ($descriptors->[$j] == $filter_desc) |
|
422
|
0 |
47 |
unless defined $data->[$j] |
|
424
|
15 |
32 |
if ($val eq $fiv[$filter_criterion][$line][$idesc]) { } |
|
426
|
12 |
3 |
if ($nmatch == $num_desc[$filter_criterion]) { } |
|
429
|
7 |
5 |
if ($required[$filter_criterion]) { } |
|
431
|
1 |
6 |
if ($num_success_req_criteria == $num_required_criteria and $num_ordinary_criteria == 0 || $num_success_ord_criteria > 0) { } |
|
440
|
0 |
5 |
if ($num_success_req_criteria == $num_required_criteria) |