Branch Coverage

lib/Weather/GHCN/App/Fetch.pm
Criterion Covered Total %
branch 37 68 55.8


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"