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 |