| line |
true |
false |
branch |
|
30
|
0 |
7 |
unless &GetOptions(\%option, "ahl=s", "gts", "help", "only_ahl", "outfile=s", "verbose=i", "without_ahl") |
|
42
|
0 |
7 |
if $option{'help'} |
|
50
|
0 |
2 |
if $option{'only_ahl'} and $option{'without_ahl'} || $option{'gts'} or $option{'without_ahl'} and $option{'only_ahl'} || $option{'gts'} or $option{'gts'} and $option{'only_ahl'} || $option{'without_ahl'} |
|
53
|
0 |
7 |
unless @ARGV |
|
56
|
0 |
7 |
if $option{'verbose'} |
|
59
|
3 |
4 |
if ($option{'ahl'}) |
|
61
|
0 |
3 |
if $@ |
|
66
|
5 |
2 |
if ($option{'outfile'}) { } |
|
68
|
0 |
5 |
unless open $OUT, ">", $option{'outfile'} |
|
80
|
3 |
4 |
if $option{'ahl'} |
|
107
|
0 |
63 |
if ($@) |
|
109
|
0 |
0 |
if $option{'ahl'} and not $current_ahl =~ /$ahl_regexp/ |
|
115
|
0 |
0 |
if (defined $current_message_number) |
|
117
|
0 |
0 |
if $current_ahl |
|
119
|
0 |
0 |
if $error_msg |
|
124
|
12 |
51 |
if $option{'ahl'} and $bufr->is_filtered |
|
128
|
11 |
40 |
if not $option{'only_ahl'} and $bufr->bad_bufrlength |
|
133
|
7 |
33 |
if $current_subset_number == 0 |
|
139
|
28 |
5 |
if ($current_ahl) |
|
140
|
10 |
18 |
if ($option{'only_ahl'}) { } |
|
|
14 |
4 |
elsif (not $option{'without_ahl'}) { } |
|
143
|
7 |
7 |
if ($option{'gts'}) |
|
153
|
12 |
21 |
if $option{'only_ahl'} |
|
166
|
12 |
12 |
$ahl =~ /$ahl_regexp/ ? : |