line |
true |
false |
branch |
184
|
2 |
2 |
if @_ |
185
|
0 |
0 |
if @_ |
312
|
3 |
0 |
unless $args{'no_header'} |
314
|
3 |
6 |
if $elem =~ / [[:lower:]] /msux |
315
|
0 |
6 |
if $elem =~ / \A A_ /msux |
326
|
1 |
2 |
$return_list ? : |
368
|
1 |
2 |
$return_list ? : |
402
|
3 |
1 |
if (@keys and not $args{'no_header'}) |
416
|
2 |
2 |
$return_list ? : |
448
|
4 |
15 |
unless ($Opt->report eq "detail") |
474
|
18 |
1 |
if $includes_month |
475
|
16 |
3 |
if $Opt->report eq "detail" or $Opt->report eq "daily" |
477
|
18 |
1 |
if $includes_month |
478
|
18 |
1 |
if $includes_month |
479
|
18 |
1 |
if $includes_month |
484
|
15 |
4 |
if $Opt->report eq "detail" |
485
|
15 |
4 |
if $Opt->report eq "detail" |
486
|
15 |
4 |
if $Opt->report eq "detail" |
487
|
15 |
4 |
if $Opt->report eq "detail" |
488
|
15 |
4 |
if $Opt->report eq "detail" |
490
|
15 |
4 |
$return_list ? : |
530
|
3 |
0 |
unless $args{'no_header'} |
534
|
0 |
5 |
if $stnobj->error_count > 0 |
547
|
1 |
2 |
$return_list ? : |
631
|
1 |
1 |
$return_list ? : |
665
|
5 |
0 |
unless $args{'no_header'} |
669
|
5 |
0 |
unless ($args{'no_header'}) |
674
|
1 |
4 |
$return_list ? : |
716
|
1 |
0 |
$return_list ? : |
|
1 |
15 |
if $self->stn_filtered_count == 0 |
719
|
3 |
12 |
unless $no_header |
726
|
35 |
1783 |
if (not defined $kept or $kept and $stn->error_count == 0 or not $kept and $stn->error_count > 0) |
734
|
0 |
15 |
if $ii == 0 |
737
|
12 |
3 |
$return_list ? : |
759
|
2 |
0 |
unless ($notes_nrs->is_empty) |
805
|
0 |
6 |
if $Opt->report eq "detail" |
823
|
0 |
433 |
if $Opt->range and not $opt_range_nrs->contains($year) |
829
|
431 |
2 |
if $Opt->report eq "daily" or $Opt->report eq "monthly" |
830
|
395 |
38 |
if $Opt->report eq "daily" |
832
|
431 |
2 |
unless ($Opt->report eq "yearly") |
841
|
1283 |
19 |
$cnt ? : |
847
|
4 |
2 |
$return_list ? : |
879
|
0 |
38 |
$args{'rows_as_tsv'} ? : |
883
|
1 |
2 |
$return_list ? : |
898
|
2 |
2 |
$keycount ? : |
952
|
4 |
11 |
if ($progress_callback) |
958
|
0 |
15 |
unless ($content) |
965
|
4 |
11 |
if ($Opt->report eq 'detail') { } |
968
|
10 |
1 |
unless $insufficient_quality |
1044
|
0 |
20 |
if ($content =~ m[(.*?)]msux) |
1049
|
0 |
20 |
unless open my $stn_fh, "<", \$content |
1055
|
4 |
16 |
if $_stnid_filter_href |
1073
|
488178 |
1952762 |
if $is_stnid_filter and not $_stnid_filter_href->{$id} |
1087
|
15856 |
1936906 |
$gsn_flag eq 'GSN' ? : |
1091
|
1952752 |
10 |
unless ($is_stnid_filter) |
1094
|
267680 |
1685072 |
if $Opt->country and not $country =~ /\A$opt_country/imsu |
1097
|
333840 |
1351232 |
if $Opt->state and not $state =~ /\A$opt_state/imsu |
1100
|
1227387 |
123845 |
if $Opt->location and not _match_location($id, $name, $Opt->location) |
1102
|
122047 |
1798 |
if ($Opt->gps) |
1105
|
122027 |
20 |
if $distance > $Opt->radius |
1108
|
0 |
1818 |
if $Opt->gsn and not $gsn |
1125
|
0 |
20 |
unless close $stn_fh |
1196
|
9 |
4 |
if $stn->error_count |
1218
|
1 |
1 |
$return_list ? : |
1251
|
0 |
0 |
if $arg{'curl'} |
1254
|
0 |
0 |
if $stn->error_count |
1258
|
0 |
0 |
if ($arg{'curl'}) { } |
1267
|
0 |
0 |
$return_list ? : |
1313
|
8 |
15 |
if ($user_options{'profile'}) |
1323
|
23 |
0 |
if ($_opt_href->{'cachedir'}) { } |
1333
|
6 |
17 |
if (defined $_opt_href->{'aliases'} and defined $_opt_href->{'location'}) |
1338
|
4 |
2 |
if ($stnid_string) |
1382
|
0 |
8 |
if $Opt->report eq "detail" |
1399
|
1491 |
1820 |
if $Opt->report eq "monthly" or $Opt->report eq "daily" |
1400
|
395 |
2916 |
if $Opt->report eq "daily" |
1409
|
3270 |
6719 |
if ($elem eq 'TMIN') { } |
|
3293 |
3426 |
elsif ($elem eq 'TMAX' or $elem eq 'SNWD') { } |
|
174 |
3252 |
elsif ($elem eq 'PRCP' or $elem eq 'SNOW') { } |
1518
|
0 |
784 |
unless exists $base_href->{$elem} |
1541
|
262 |
4 |
unless $baseline_nrs->contains($year) |
1543
|
4 |
0 |
if $baseline_nrs->contains($year) |
1551
|
0 |
1 |
if ($gap_nrs->cardinality > 0) |
1592
|
5290 |
136 |
if (defined $max and defined $min) |
1614
|
1 |
15 |
if ($data_quality < $quality) |
1628
|
54 |
0 |
if $timer_label |
1632
|
0 |
54 |
unless $content |
1634
|
0 |
54 |
unless $content |
1637
|
54 |
0 |
if $timer_label |
1655
|
1207 |
621 |
unless %{$stn->elems_href} |
1658
|
0 |
1828 |
if $Opt->range and not $opt_range_nrs->subset($stn_active_nrs) |
1661
|
0 |
1828 |
if $Opt->gps and $stn->coordinates eq $EMPTY |
1664
|
1207 |
621 |
if $Opt->active and not $stn->active |
1667
|
621 |
1207 |
if ($stn->active) { } |
1668
|
548 |
73 |
if ($Opt->partial) { } |
1671
|
545 |
3 |
if $Opt->active and $s->is_empty |
1674
|
41 |
32 |
if $Opt->active and not $opt_active_nrs->subset($stn_active_nrs) |
1679
|
0 |
1207 |
if $Opt->range |
1695
|
1 |
18 |
if ($gap_nrs->cardinality) |
1735
|
0 |
15 |
unless open my $stn_fh, "<", \$stn_content |
1751
|
43430 |
47761 |
unless $element =~ $_measures_obj->re |
1753
|
12925 |
34836 |
if $Opt->fmonth and not $opt_fmonth_nrs->contains($month) |
1755
|
266 |
34570 |
if my $need_baseline = $Opt->anomalies |
1756
|
34836 |
0 |
if ($Opt->range) |
1757
|
34198 |
638 |
unless $opt_range_nrs->contains($year) or $need_baseline |
1764
|
7830 |
11948 |
if $Opt->fday and not $opt_fday_nrs->contains($day) |
1781
|
532 |
11416 |
if $need_baseline |
1785
|
0 |
11948 |
if ($qflag ne $EMPTY) |
1793
|
392 |
11556 |
if $value == -9999 |
1797
|
11556 |
0 |
if ($element =~ / \A ( TMAX | TMIN | TAVG | SNOW | SNWD | PRCP ) \Z /msux) |
1802
|
10892 |
664 |
if $value |
1808
|
0 |
15 |
unless close $stn_fh |
1818
|
15 |
0 |
if ($Opt->range) |
1824
|
1 |
14 |
if ($Opt->anomalies) |
1831
|
1 |
14 |
if ($Opt->anomalies and $insufficient_quality == 0) |
1849
|
0 |
20 |
unless open my $inv_fh, "<", \$inv_content |
1869
|
14505196 |
17104 |
unless exists $_station{$id} |
1871
|
15888 |
1216 |
unless $elem =~ $_measures_obj->re |
1878
|
1216 |
0 |
if $elem =~ $_measures_obj->re |
1881
|
0 |
20 |
unless close $inv_fh |
1894
|
0 |
4 |
unless defined $row_sub |
1913
|
998 |
0 |
$Opt->range ? : |
|
258 |
740 |
unless $Opt->range ? $opt_range_nrs->contains($year) : $TRUE |
1918
|
0 |
740 |
if exists $row->{'QFLAGS'} |
1930
|
2210 |
42 |
if defined $row->{$elem} |
1954
|
4 |
11 |
if ($Opt->active) |
1958
|
15 |
0 |
if ($Opt->range) |
1971
|
131 |
19 |
if $Opt->range and $opt_range_nrs && !$opt_range_nrs->contains($yyyy) || $Opt->anomalies && !$opt_baseline_nrs->contains($yyyy) |
1982
|
0 |
19 |
$yyyy == $this_yyyy ? : |
1986
|
4 |
15 |
$Opt->fmonth ? : |
1994
|
1 |
18 |
if ($month_gap_nrs->cardinality) |
2008
|
44 |
184 |
if $Opt->fmonth and not $opt_fmonth_nrs->contains($mm) |
2012
|
9 |
175 |
unless $day_vec |
2019
|
87 |
5338 |
if $Opt->fday and not $opt_fday_nrs->contains($day) |
2021
|
99 |
5239 |
if $day > $mdays |
2023
|
5164 |
75 |
if vec($day_vec, $day - 1, 1) == 1 |
2027
|
3 |
172 |
$Opt->fday ? : |
2037
|
17 |
158 |
unless $day_gap_nrs->is_empty |
2041
|
1 |
18 |
if $gap_months |
2046
|
6 |
13 |
unless ($gap_text =~ /\A \s* \Z/msux) |
2099
|
1 |
16 |
unless $kml_colors{$c} |
2141
|
854330 |
373119 |
if ($pattern =~ / \A $STN_ID_RE \Z /msux) { } |
|
244096 |
129023 |
elsif ($pattern =~ / \A $STN_ID_RE ( [,] $STN_ID_RE )+ \Z /msux) { } |
2176
|
10 |
26 |
if ($tok =~ / \A $mmm_re \Z /msux) |
2179
|
26 |
10 |
if ($tok =~ / \A ($mmm_re) \[ ($rng_list) \] \Z /msux) |
2196
|
7 |
2 |
unless $qflags_href |
2213
|
1 |
434 |
unless defined $x or defined $y |
2214
|
434 |
2864 |
unless defined $x |
2215
|
1 |
2863 |
unless defined $y |
2217
|
2712 |
151 |
$x > $y ? : |
2224
|
1 |
431 |
unless defined $x or defined $y |
2225
|
431 |
2844 |
unless defined $x |
2226
|
1 |
2843 |
unless defined $y |
2228
|
2704 |
139 |
$x < $y ? : |
2235
|
1 |
10419 |
unless defined $x or defined $y |
2236
|
10419 |
4965 |
unless defined $x |
2237
|
1 |
4964 |
unless defined $y |
2246
|
2 |
15209 |
unless defined $y |
2248
|
4792 |
10417 |
defined $x ? : |
2255
|
2 |
9994 |
unless defined $x |
2256
|
1 |
9993 |
unless defined $y |
2257
|
1 |
9992 |
unless $y |
2275
|
19 |
179 |
if ($month == 2) |
2292
|
36 |
35 |
if $year % 4 |
2293
|
8 |
27 |
if $year % 100 |
2294
|
16 |
11 |
if $year % 400 |
2303
|
1 |
22 |
unless @mm |
2307
|
1 |
40 |
if (not $mm =~ / \A \d\d? \Z /msux) { } |
|
38 |
2 |
elsif ($mm > 0 and $mm < 13) { } |
2318
|
2 |
20 |
wantarray ? : |
2327
|
97 |
1077 |
if $month == 12 |
2345
|
1079 |
97 |
unless $month == 12 |
2355
|
15 |
4 |
unless $opt_performance |