| line |
true |
false |
branch |
|
26
|
0 |
15 |
if ref $class |
|
34
|
15 |
0 |
if ('Astro::App::Satpass2::ParseTime' eq $class) { } |
|
39
|
8 |
7 |
'ARRAY' eq ref $args{'class'} ? : |
|
41
|
0 |
15 |
unless $class = _try(@classes) |
|
45
|
0 |
0 |
unless $class = _try($class) |
|
51
|
15 |
0 |
unless defined $args{'base'} |
|
69
|
125 |
315 |
if (@args > 0) |
|
80
|
0 |
0 |
unless my $value = $self->$attr |
|
104
|
0 |
0 |
if $skip{$name} |
|
107
|
0 |
0 |
if $args{'changes'} and $val eq $static{$name} |
|
108
|
0 |
0 |
$args{'decode'} ? : |
|
112
|
0 |
0 |
wantarray ? : |
|
144
|
0 |
0 |
unless my $dcdr = $decoder{$method} |
|
146
|
0 |
0 |
unless my $type = ref $dcdr |
|
148
|
0 |
0 |
unless "CODE" eq $type |
|
162
|
1 |
146 |
if ("SCALAR" eq ref $string) |
|
168
|
0 |
146 |
if (not defined $string or "" eq $string) |
|
170
|
0 |
0 |
if defined $default |
|
174
|
39 |
107 |
if ($string =~ / \A \s* [+-] /msx) { } |
|
|
1 |
106 |
elsif ($string =~ / \A epoch \s* ( [0-9]+ (?: [.] [0-9]* )? ) \z /msx) { } |
|
175
|
0 |
39 |
unless defined $self->{'base'} |
|
177
|
0 |
39 |
unless defined $self->{'absolute'} |
|
183
|
0 |
39 |
if @delta > 4 |
|
187
|
0 |
156 |
unless &looks_like_number($delta[$inx]) |
|
191
|
4 |
35 |
if "-" eq $sign |
|
203
|
0 |
106 |
unless defined(my $time = $self->parse_time_absolute($string)) |
|
250
|
4 |
27 |
if $trial{$try} |
|
252
|
2 |
25 |
if exists $trial{$try} |
|
254
|
0 |
25 |
unless ($try =~ / \A \w+ (?: :: \w+ )* \z /msx) |
|
259
|
0 |
25 |
unless my $pkg = $trial{$try} = load_package($try, "Astro::App::Satpass2::ParseTime") |
|
263
|
8 |
17 |
unless my $delegate = $trial{$try} = eval {
do {
$pkg->delegate
}
} |
|
266
|
11 |
6 |
if ($trial{$delegate}) |