| line |
true |
false |
branch |
|
202
|
2 |
9 |
if (@ARGV > 0 and $ARGV[0] =~ / \A [^-][[:alpha:]]+ \b /msux) |
|
224
|
0 |
11 |
if ($Opt_outclip and not $USE_WINCLIP) |
|
230
|
1 |
10 |
if ($Opt_help) |
|
234
|
2 |
8 |
if ($Opt_usage) |
|
240
|
1 |
7 |
if ($Opt_readme) |
|
257
|
0 |
0 |
if $USE_TK and $argv_count == 0 and -t *STDIN |
|
261
|
2 |
5 |
if defined $report_type |
|
266
|
1 |
6 |
if @ARGV |
|
272
|
0 |
6 |
if @errors |
|
276
|
0 |
0 |
if ($Opt_outclip and $USE_WINCLIP) |
|
277
|
0 |
0 |
unless open $new_fh, ">", \$output |
|
284
|
2 |
0 |
if ($args{'stdin'} and -p *STDIN || -f *STDIN) |
|
296
|
1 |
1 |
if ($ii == 0) { } |
|
309
|
0 |
5 |
if ($ghcn->stn_filtered_count > $STN_THRESHOLD) |
|
310
|
0 |
0 |
if (-t *STDIN) { } |
|
314
|
0 |
0 |
if $reply =~ / \A ( n | no ) /imsux |
|
320
|
1 |
4 |
if ($Opt->report eq 'kml') { } |
|
|
0 |
4 |
elsif ($Opt->report eq 'url') { } |
|
|
0 |
4 |
elsif ($Opt->report eq 'curl') { } |
|
|
0 |
4 |
elsif ($Opt->report eq 'stn') { } |
|
|
0 |
4 |
elsif ($Opt->report eq 'id') { } |
|
343
|
2 |
2 |
if ($Opt->report) |
|
354
|
0 |
2 |
if ($Opt->report eq "detail" and $Opt->nogaps) |
|
363
|
1 |
1 |
if $Opt->dataonly |
|
376
|
1 |
2 |
if (@rejected) |
|
382
|
1 |
2 |
if ($ghcn->has_missing_data) |
|
401
|
1 |
2 |
if ($Opt->performance) |
|
412
|
0 |
0 |
if ($Opt_outclip and $USE_WINCLIP) |
|
433
|
0 |
7 |
$Opt_gui ? : |
|
459
|
0 |
8 |
if ($optfile) |
|
489
|
0 |
0 |
unless ($USE_TK) |
|
504
|
0 |
0 |
if defined $optfile and -e $optfile |
|
511
|
0 |
0 |
if ($Opt_gui) |
|
525
|
0 |
0 |
if $retval and $retval eq "cancel" |