| line |
true |
false |
branch |
|
667
|
8 |
117 |
if ($_opt_obj->country) |
|
672
|
1 |
7 |
unless @cou |
|
675
|
1 |
7 |
if @cou > 1 |
|
683
|
5 |
120 |
if ($_opt_obj->defined("active") and $_opt_obj->active eq $EMPTY) |
|
687
|
26 |
99 |
if $_opt_obj->fmonth or $_opt_obj->fday |
|
713
|
3 |
150 |
if $k eq "aliases" |
|
714
|
6 |
144 |
if $k eq "cachedir" |
|
715
|
6 |
138 |
if $k eq "profile" |
|
717
|
89 |
49 |
unless defined $v |
|
719
|
2 |
47 |
if ($boolean->{$k}) |
|
726
|
0 |
47 |
if ($val =~ /\A \s* \Z/msux) |
|
751
|
10 |
115 |
if ($_opt_obj->defined("aliases")) |
|
754
|
1 |
25 |
unless $alias_name =~ /$ALIAS_NAME_RE/u |
|
759
|
24 |
101 |
if ($_opt_obj->active) |
|
760
|
7 |
17 |
unless ($_opt_obj->active =~ / \A (18|19|20)\d\d [-] (18|19|20)\d\d /msux) |
|
766
|
33 |
92 |
if ($_opt_obj->range) |
|
767
|
7 |
26 |
unless ($_opt_obj->range =~ / \A (18|19|20)\d\d [-,] (18|19|20)\d\d /msux) |
|
773
|
5 |
120 |
if $_opt_obj->defined("state") and not $_opt_obj->state =~ / \A [[:alpha:]]{2} \Z /msux |
|
776
|
1 |
124 |
if $_opt_obj->partial and not $_opt_obj->defined("active") |
|
782
|
9 |
116 |
if ($_opt_obj->range and $_opt_obj->active) |
|
784
|
9 |
0 |
if ($bad_range_cnt == 0) |
|
788
|
5 |
4 |
unless $r->subset($a) |
|
793
|
3 |
122 |
if $_opt_obj->gps and not $_opt_obj->gps =~ / \A [+-]? \d{1,3} [.] \d+ (?: [[:punct:]] | \s+ ) [+-]? \d{1,3} [.] \d+ \Z /msux |
|
801
|
0 |
125 |
unless defined $report |
|
805
|
1 |
124 |
if $report and not $report_abbrev{$report} |
|
815
|
0 |
125 |
unless defined $refresh |
|
819
|
0 |
125 |
if $refresh and not $refresh_abbrev{$refresh} |
|
830
|
125 |
0 |
if ($_opt_obj->defined("kmlcolor")) |
|
832
|
1 |
124 |
if ($kmlcolor eq $EMPTY) { } |
|
836
|
2 |
122 |
unless $color_abbrev{$kmlcolor} |
|
842
|
15 |
110 |
if ($_opt_obj->defined("fmonth")) |
|
843
|
5 |
10 |
unless rng_valid($_opt_obj->fmonth) and rng_within($_opt_obj->fmonth, "1-12") |
|
848
|
15 |
110 |
if ($_opt_obj->defined("fday")) |
|
849
|
5 |
10 |
unless rng_valid($_opt_obj->fday) and rng_within($_opt_obj->fday, "1-31") |
|
878
|
35 |
196 |
unless ref $row eq "ARRAY" |
|
880
|
63 |
133 |
if $type eq $BANG |