Branch Coverage

blib/lib/Astro/App/Satpass2/Format/Template.pm
Criterion Covered Total %
branch 60 100 60.0


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'}
237 0 10 unless my $code = $item->can("fixed_width")
253 0 173 unless instance($evt, "Astro::App::Satpass2::FormatValue")
255 0 173 unless defined(my $type = $evt->$kind("width", ""))
260 156 173 unless defined(my $tplt = $self->template("${tplt}:$name"))
281 37 23 if $data{'title'}->title_gravity eq $data{'TITLE_GRAVITY_BOTTOM'}
288 3 54 if (@args) { }
298 12 195 if (@args) { }
300 2 10 unless defined $val
303 0 12 unless defined $self->template($val)
315 1 9 if (@args) { }
316 1 0 if ($self->{'permissive'} xor $args[0])
328 0 620 unless defined $name
331 3 617 if (@value) { }
333 0 3 if (not defined $value[0] or defined($tplt_text = __localize('text', '+template', 'default', $value[0])) and $value[0] eq $tplt_text) { }
348 4 613 if defined $self->{'canned_template'}{$name}
357 16 0 if (@args) { }
373 0 3 unless "ARRAY" eq ref $data
379 0 3 unless @events
394 1 260 if "Astro::App::Satpass2::Format::Template::format" eq $info[3]
403 28 0 unless defined $default
405 0 0 defined $source ? :
0 28 unless defined $report
418 218 231 if "ARRAY" eq ref $arg{'arg'}
423 272 177 if not ref $tplt and defined($tplt_text = $self->template($tplt))
427 1 448 unless $tt->process($tplt, \%arg, \$output)
451 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')) { }
482 8 12 $body ? :