| line |
true |
false |
branch |
|
38
|
0 |
3 |
unless &GetOptions(\%option, "bufr_edition=i", "category=i", "centre=i", "compress=i", "data=s%", "day=i", "help", "hour=i", "int_subcategory=i", "loc_subcategory=i", "local_table_version=i", "master_table_version=i", "minute=i", "month=i", "observed=i", "outfile=s", "remove_qc", "remove_sec2", "second=i", "strict_checking=i", "subcategory=i", "subcentre=i", "tableformat=s", "tablepath=s", "update_number=i", "verbose=i", "year=i", "year_of_century=i") |
|
71
|
0 |
3 |
if $option{'help'} |
|
74
|
0 |
3 |
unless @ARGV == 1 |
|
77
|
0 |
3 |
unless open my $IN, "<", $infile |
|
84
|
0 |
3 |
defined $option{'strict_checking'} ? : |
|
88
|
0 |
3 |
if $option{'verbose'} |
|
91
|
1 |
2 |
defined $option{'tableformat'} ? : |
|
95
|
3 |
0 |
if ($option{'tablepath'}) { } |
|
|
0 |
0 |
elsif ($ENV{'BUFR_TABLES'}) { } |
|
103
|
0 |
0 |
if ($tableformat eq 'BUFRDC') { } |
|
|
0 |
0 |
elsif ($tableformat eq 'ECCODES') { } |
|
112
|
3 |
0 |
if ($option{'outfile'}) { } |
|
114
|
0 |
3 |
unless open $OUT, ">", $option{'outfile'} |
|
129
|
0 |
3 |
if (length $msg < 4) |
|
134
|
0 |
3 |
if ($len < 8 or $len > length($msg) + 4) |
|
138
|
0 |
3 |
if (substr($msg, $len - 8, 4) != 7777) |
|
161
|
3 |
0 |
if $out |
|
169
|
0 |
3 |
if ($option{'remove_qc'}) |
|
185
|
3 |
2 |
if ($isub == 1) |
|
192
|
1 |
2 |
if (defined $option{'observed'}) |
|
195
|
1 |
2 |
if (defined $option{'compress'}) |
|
198
|
0 |
3 |
if ($option{'remove_sec2'}) |
|
201
|
0 |
3 |
if ($option{'remove_qc'}) |
|
206
|
5 |
0 |
if (defined $option{'data'}) |
|
209
|
10 |
105 |
if ($descriptors->[$i] == $desc) |
|
210
|
0 |
10 |
if ($value =~ /(.*)\+$/) { } |
|
|
5 |
5 |
elsif ($value eq 'missing') { } |
|
225
|
3 |
2 |
if ($isub == $nsubsets) |
|
234
|
3 |
0 |
if (defined $option{'centre'}) |
|
237
|
3 |
0 |
if (defined $option{'subcentre'}) |
|
240
|
3 |
0 |
if (defined $option{'update_number'}) |
|
241
|
1 |
2 |
if ($option{'update_number'} >= 0) { } |
|
246
|
2 |
0 |
if ($option{'update_number'} == -1) { } |
|
|
0 |
0 |
elsif ($option{'update_number'} == -2) { } |
|
255
|
3 |
0 |
if (defined $option{'category'}) |
|
258
|
3 |
0 |
if (defined $option{'subcategory'}) |
|
261
|
0 |
3 |
if (defined $option{'int_subcategory'}) |
|
264
|
0 |
3 |
if (defined $option{'loc_subcategory'}) |
|
267
|
2 |
1 |
if (defined $option{'master_table_version'}) |
|
270
|
2 |
1 |
if (defined $option{'local_table_version'}) |
|
273
|
2 |
1 |
if (defined $option{'year'}) |
|
276
|
0 |
3 |
if (defined $option{'year_of_century'}) |
|
279
|
3 |
0 |
if (defined $option{'month'}) |
|
282
|
3 |
0 |
if (defined $option{'day'}) |
|
285
|
3 |
0 |
if (defined $option{'hour'}) |
|
288
|
3 |
0 |
if (defined $option{'minute'}) |
|
291
|
0 |
3 |
if (defined $option{'second'}) |
|
297
|
3 |
0 |
if (defined $option{'bufr_edition'}) |
|
317
|
2 |
1 |
if ($old_bufr_edition == 4 and $new_bufr_edition < 4) { } |
|
|
1 |
0 |
elsif ($old_bufr_edition < 4 and $new_bufr_edition == 4) { } |
|
318
|
0 |
2 |
unless (defined $new_bufr->get_data_subcategory) |
|
324
|
1 |
0 |
unless (defined $new_bufr->get_loc_data_subcategory) |
|
327
|
1 |
0 |
unless (defined $new_bufr->get_int_data_subcategory) |
|
330
|
0 |
1 |
unless (defined $new_bufr->get_year) |
|
334
|
1 |
0 |
unless (defined $new_bufr->get_second) |