| line |
true |
false |
branch |
|
53
|
0 |
10 |
unless $self->{'tt'} = "Template"->new({"LOAD_TEMPLATES", ["Template::Provider"->new("ABSOLUTE", $permissive, "RELATIVE", $permissive)]}) |
|
74
|
1 |
0 |
'HASH' eq ref $arg[0] ? : |
|
75
|
0 |
1 |
unless "HASH" eq ref $fmtr |
|
79
|
0 |
1 |
unless defined(my $fmtr_name = $fmtr->{'name'}) |
|
83
|
0 |
1 |
if $self->{'formatter_method'}{$fmtr_name} |
|
86
|
0 |
1 |
if "Astro::App::Satpass2::FormatValue"->can($fmtr_name) |
|
105
|
0 |
0 |
$args{'changes'} ? : |
|
114
|
0 |
0 |
wantarray ? : |
|
152
|
7 |
0 |
unless my $dcdr = $decoder{$method} |
|
160
|
302 |
0 |
unless @arg |
|
162
|
0 |
0 |
unless @arg |
|
165
|
0 |
0 |
unless defined $attrib |
|
166
|
0 |
0 |
unless @arg |
|
169
|
0 |
0 |
unless defined $value |
|
181
|
59 |
3 |
if exists $data{'data'} |
|
183
|
1 |
61 |
if _is_format() |
|
186
|
0 |
61 |
unless my $tplt = delete $data{'template'} |
|
188
|
1 |
60 |
'SCALAR' eq ref $tplt ? : |
|
200
|
0 |
61 |
if ($data{'time'}) { } |
|
204
|
0 |
0 |
unless ref $data{'time'} |
|
238
|
0 |
10 |
unless my $code = $item->can("fixed_width") |
|
249
|
29 |
0 |
if embodies($item->body, "Astro::Coord::ECI::TLE") |
|
264
|
0 |
173 |
unless instance($evt, "Astro::App::Satpass2::FormatValue") |
|
266
|
0 |
173 |
unless defined(my $type = $evt->$kind("width", "")) |
|
271
|
156 |
173 |
unless defined(my $tplt = $self->template("${tplt}:$name")) |
|
292
|
37 |
23 |
if $data{'title'}->title_gravity eq $data{'TITLE_GRAVITY_BOTTOM'} |
|
299
|
3 |
54 |
if (@args) { } |
|
309
|
12 |
195 |
if (@args) { } |
|
311
|
2 |
10 |
unless defined $val |
|
314
|
0 |
12 |
unless defined $self->template($val) |
|
326
|
1 |
9 |
if (@args) { } |
|
327
|
1 |
0 |
if ($self->{'permissive'} xor $args[0]) |
|
339
|
0 |
620 |
unless defined $name |
|
342
|
3 |
617 |
if (@value) { } |
|
344
|
0 |
3 |
if (not defined $value[0] or defined($tplt_text = __localize('text', '+template', 'default', $value[0])) and $value[0] eq $tplt_text) { } |
|
359
|
4 |
613 |
if defined $self->{'canned_template'}{$name} |
|
368
|
16 |
0 |
if (@args) { } |
|
384
|
0 |
3 |
unless "ARRAY" eq ref $data |
|
390
|
0 |
3 |
unless @events |
|
405
|
1 |
260 |
if "Astro::App::Satpass2::Format::Template::format" eq $info[3] |
|
414
|
28 |
0 |
unless defined $default |
|
416
|
0 |
0 |
defined $source ? : |
|
|
0 |
28 |
unless defined $report |
|
429
|
218 |
231 |
if "ARRAY" eq ref $arg{'arg'} |
|
434
|
272 |
177 |
if not ref $tplt and defined($tplt_text = $self->template($tplt)) |
|
438
|
1 |
448 |
unless $tt->process($tplt, \%arg, \$output) |
|
462
|
0 |
517 |
if (instance($data, 'Astro::App::Satpass2::FormatValue')) { } |
|
|
449 |
68 |
elsif (not defined $data or 'HASH' eq ref $data) { } |
|
|
45 |
23 |
elsif ('ARRAY' eq ref $data) { } |
|
|
23 |
0 |
elsif (embodies($data, 'Astro::Coord::ECI')) { } |
|
493
|
8 |
12 |
$body ? : |