| line |
true |
false |
branch |
|
32
|
1 |
6 |
if (@args and 'ARRAY' eq ref $args[-1]) |
|
41
|
4 |
3 |
if (ref $class) { } |
|
|
0 |
3 |
elsif (&Scalar::Util::blessed($args[0])) { } |
|
46
|
0 |
0 |
$from->isa('Date::ManipX::Almanac::Date') ? : |
|
60
|
1 |
6 |
if @config |
|
62
|
2 |
5 |
unless $self->get_config('sky') |
|
64
|
3 |
4 |
unless defined $self->get_config('twilight') |
|
69
|
0 |
7 |
if @args |
|
87
|
0 |
0 |
if &Scalar::Util::blessed($obj) and $obj->isa('Date::ManipX::Almanac::Date') |
|
95
|
0 |
0 |
if $date->isa('Date::ManipX::Almanac::Date') |
|
121
|
43 |
2 |
if (my $code = $$config{lc $name}) { } |
|
149
|
47 |
16 |
if ($mine->{$name}) { } |
|
158
|
47 |
4 |
1 == @rslt ? : |
|
168
|
0 |
0 |
if &Scalar::Util::blessed($args[0]) and $args[0]->isa('Date::ManipX::Almanac::Date') |
|
190
|
0 |
2 |
unless (open my $fh, '<:encoding(utf-8)', $fn) |
|
196
|
2 |
16 |
unless / \S /msx |
|
198
|
0 |
16 |
if / \A \s* [#] /msx |
|
203
|
0 |
16 |
if (/ \A [*] ( .* ) /msx) { } |
|
207
|
0 |
0 |
unless ($$allow{lc $1}) |
|
213
|
0 |
16 |
if ($name =~ / \A ConfigFile \z /imsx) { } |
|
|
0 |
16 |
elsif ($config_file_processed) { } |
|
248
|
0 |
8 |
if $rslt = $self->dmd->config($name, $val) |
|
265
|
0 |
9 |
if exists $self->{'lang'} and $lang eq $self->{'lang'} |
|
267
|
0 |
9 |
unless my $mod = __load_language($lang) |
|
284
|
9 |
0 |
if eval {
do {
&Module::Load::load($module);
1
}
} |
|
296
|
9 |
0 |
if (defined $val) |
|
297
|
0 |
9 |
if (&Astro::Coord::ECI::Utils::looks_like_number($val)) { } |
|
300
|
0 |
9 |
unless defined($set_val = $self->_get_twilight_qual($val)) |
|
309
|
2 |
7 |
if $self->{'config'}{'location'} |
|
316
|
0 |
23 |
unless ref $val and &Scalar::Util::blessed($val) and $val->isa('Astro::Coord::ECI') |
|
334
|
11 |
12 |
if $rslt = $self->_config_var_is_eci($name, $val) |
|
336
|
12 |
0 |
unless (ref $val) |
|
353
|
12 |
0 |
if ($rslt = $self->_config_var_is_eci($name, $obj)) |
|
364
|
3 |
0 |
if (defined $val and &Astro::Coord::ECI::Utils::looks_like_number($val)) { } |
|
376
|
3 |
0 |
if (defined $val and &Astro::Coord::ECI::Utils::looks_like_number($val) and $val >= -90 and $val <= 90) { } |
|
391
|
4 |
2 |
if (not defined $val) { } |
|
396
|
0 |
2 |
unless $loc = $self->_config_var_is_eci_class($name, $val) |
|
407
|
2 |
4 |
if defined $self->{'config'}{'_twilight'} and defined $loc |
|
408
|
2 |
4 |
unless $self->{'config'}{'sky'} |
|
423
|
3 |
0 |
if (defined $val and &Astro::Coord::ECI::Utils::looks_like_number($val) and $val >= -180 and $val <= 180) { } |
|
437
|
3 |
0 |
if (defined $val) { } |
|
450
|
7 |
8 |
unless (ref $values) |
|
451
|
6 |
1 |
if (defined $values and $values ne '') { } |
|
453
|
1 |
5 |
unless $self->{'config'}{'sky'} |
|
461
|
0 |
21 |
unless my $body = $self->_config_var_is_eci_class($name, $val) |
|
464
|
6 |
15 |
if (my $loc = $self->_get_config_location) |
|
481
|
5 |
35 |
unless my $cfg = $self->{'config'} |
|
483
|
18 |
17 |
if $cfg->{'location'} |
|
486
|
14 |
3 |
unless defined $cfg->{'latitude'} and defined $cfg->{'longitude'} |
|
489
|
3 |
0 |
if defined $cfg->{'name'} |
|
491
|
2 |
1 |
if defined $cfg->{'_twilight'} |
|
497
|
1 |
2 |
unless $self->{'config'}{'sky'} |
|
511
|
0 |
12 |
unless defined $qual |
|
523
|
4 |
3 |
if (&Scalar::Util::blessed($from) and $from->isa('Date::ManipX::Almanac::Date')) { } |
|
533
|
3 |
0 |
if (my $lang = $self->get_config('language')) |
|
546
|
0 |
0 |
if not $force and exists $self->{'lang'} |
|
562
|
0 |
14 |
unless wantarray |
|
565
|
0 |
14 |
unless $self->{'config'}{'sky'} |
|
|
0 |
14 |
unless @{[] unless $self->{'config'}{'sky'};} |
|
576
|
0 |
11 |
unless defined $body and defined $event |
|
580
|
0 |
11 |
unless $self->_get_config_location |
|
583
|
0 |
11 |
unless my $code = $self->can("__parse_post__$event") |
|
608
|
3 |
2 |
if $which == $detail |
|
623
|
2 |
1 |
if $which == $detail |
|
652
|
3 |
1 |
if $which == $detail |