| line |
true |
false |
branch |
|
36
|
0 |
12 |
if ref $class |
|
43
|
0 |
12 |
if $class eq "Astro::App::Satpass2::Format" and "My::Module::Test::App" ne caller |
|
53
|
0 |
12 |
unless defined $self->{'parent'} |
|
54
|
0 |
12 |
unless instance($self->{'parent'}, "Astro::App::Satpass2") |
|
58
|
12 |
0 |
unless exists $args{'tz'} |
|
64
|
12 |
0 |
unless $args{'date_format'} |
|
66
|
12 |
0 |
unless $args{'time_format'} |
|
68
|
12 |
0 |
unless exists $args{'round_time'} |
|
81
|
12 |
451 |
if (@arg) { } |
|
128
|
4 |
20 |
if $not_part_of_config{$name} |
|
133
|
4 |
16 |
if $args{'decode'} and ref $val |
|
140
|
8 |
2 |
$original_value{$name} ? : |
|
|
6 |
14 |
if $args{'changes'} and $val eq ($original_value{$name} ? $original_value{$name}->($self, $name) : undef) |
|
146
|
0 |
2 |
wantarray ? : |
|
175
|
7 |
4 |
unless my $dcdr = $decoder{$method} |
|
177
|
0 |
4 |
unless my $type = ref $dcdr |
|
179
|
0 |
4 |
unless "CODE" eq $type |
|
195
|
12 |
198 |
if (@args) { } |
|
196
|
2 |
10 |
unless defined $args[0] |
|
224
|
24 |
1524 |
if (@args) { } |
|
226
|
12 |
12 |
unless defined $fmtr and $fmtr ne "" |
|
229
|
24 |
0 |
unless (ref $fmtr) |
|
232
|
0 |
24 |
$self->parent->get('error_out') ? : |
|
234
|
0 |
24 |
unless my $class = $self->load_package({"fatal", $fatal}, $pkg, $prefix) |
|
241
|
0 |
24 |
if ref $old |
|
244
|
0 |
24 |
if ref $old |
|
256
|
20 |
4 |
if (@args) { } |
|
266
|
12 |
498 |
if (@args) |
|
268
|
0 |
12 |
if (my $fmtr = $self->time_formatter) |