| line |
true |
false |
branch |
|
40
|
0 |
18 |
unless &GetOptions(\%option, "help", "outfile=s", "strict_checking=i", "tableformat=s", "tablepath=s", "verbose=i", "width=i") |
|
52
|
0 |
18 |
if $option{'help'} |
|
55
|
0 |
18 |
unless @ARGV == 1 |
|
58
|
1 |
17 |
$option{'width'} ? : |
|
62
|
0 |
18 |
defined $option{'strict_checking'} ? : |
|
66
|
0 |
18 |
if $option{'verbose'} |
|
69
|
1 |
17 |
defined $option{'tableformat'} ? : |
|
73
|
18 |
0 |
if ($option{'tablepath'}) { } |
|
|
0 |
0 |
elsif ($ENV{'BUFR_TABLES'}) { } |
|
81
|
0 |
0 |
if ($tableformat eq 'BUFRDC') { } |
|
|
0 |
0 |
elsif ($tableformat eq 'ECCODES') { } |
|
90
|
0 |
18 |
unless open my $fh, "<", $infile |
|
98
|
1 |
17 |
if ($option{'outfile'}) { } |
|
100
|
0 |
1 |
unless open my $fh, ">", $outfile |