Condition Coverage

blib/lib/Astro/App/Satpass2/FormatValue.pm
Criterion Covered Total %
condition 83 151 54.9


and 3 conditions

line !l l&&!r l&&r condition
50 0 0 1498 ref $self->{$name} and "HASH" eq &reftype($self->{$name})
121 282 0 0 @args == 1 and "HASH" eq ref $args[0]
241 0 0 6 defined $arg{'time'} and embodies($arg{'station'}, "Astro::Coord::ECI")
249 6 0 0 _elevation($arg{'station'}, $arg{'sun'}, $arg{'time'}) > $arg{'twilight'} and _elevation($arg{'station'}, $arg{'body'}, $arg{'time'}) >= 0
318 0 0 6 $illum and 2 == $illum || 3 == $illum
0 6 0 $illum and 2 == $illum || 3 == $illum and $body->can_flare($self->_get("data", "questionable"))
1547 1 2 0 $self->can($name) and not $defined_here{$name}
1707 2521 0 5 defined $arg->{'format'} and not defined $arg->{'width'}
1771 0 0 2662 $dim = $dimensions{$dim_name} and defined(my $unit_name = _dor($arg->{'units'}, $fmtr->{'dimension'}{'units'}, $self->_get("default", $fmtr_name, "units"), $dim->{'default'}))
1807 1839 0 6 defined $unit->{'gmt'} and not defined $arg->{'gmt'}
1953 3 0 185 $arg->{'bearing'} and $arg->{'bearing'} =~ / \A [0-9]+ \z /msx
2046 53 1 78 embodies($tle, "Astro::Coord::ECI::TLE") and $tle->attribute($attr)
2084 9 130 0 $arg->{'width'} and $arg->{'bearing'} > $arg->{'width'}
2164 1 0 4 $arg->{'width'} and $arg->{'width'} =~ / \A [0-9]+ \z /msx
2188 0 0 813 defined $value and $value ne ""
2193 46 0 767 $arg->{'width'} && $arg->{'width'} =~ / \A [0-9]+ \z /msx
2196 0 0 813 defined $arg->{'places'} and $arg->{'places'} =~ / \A [0-9]+ \z /msx
2211 0 761 6 $width and length $buffer > $width
761 0 6 $width and length $buffer > $width and $width >= 7
2225 0 0 15 defined $value and $value ne ""
2230 6 0 9 $arg->{'width'} && $arg->{'width'} =~ / \A [0-9]+ \z /msx
2233 0 0 15 defined $arg->{'places'} and $arg->{'places'} =~ / \A [0-9]+ \z /msx
2238 15 0 0 $buffer =~ s/ e ( [-+]? ) 0 ( [0-9]{2} ) \z /e$1$2/msx and $width
15 0 0 $buffer =~ s/ e ( [-+]? ) 0 ( [0-9]{2} ) \z /e$1$2/msx and $width and $width > length $buffer
2288 0 0 25 defined $arg->{'places'} and $arg->{'places'} =~ / \A [0-9]+ \z /msx
2310 0 224 1389 defined $arg->{'width'} and $arg->{'width'} =~ / \A [0-9]+ \z /msx
2359 159 0 0 $self->{'title'} and defined $arg->{'title'}
2367 0 31 125 defined $arg->{'width'} and $arg->{'width'} =~ / \A [0-9]+ \z /msx
31 0 125 defined $arg->{'width'} and $arg->{'width'} =~ / \A [0-9]+ \z /msx and $arg->{'width'}

or 2 conditions

line l !l condition
46 1470 28 $args{$name} || {}
54 0 749 $args{'desired_equinox_dynamical'} || 0
60 0 749 $args{'overflow'} || 0
89 736 13 $args{'time_formatter'} || 'Astro::App::Satpass2::FormatTime'
1701 2526 0 $fmtr->{'default'} || {}
2081 2 0 $arg->{'width'} || 2
2086 139 0 $arg->{'bearing'} || 2
2154 367 1 $table->[$value] || ''

or 3 conditions

line l !l&&r !l&&!r condition
68 744 5 0 ref $self->{'local_coordinates'} or $self->{'local_coordinates'} = $self->can("__local_coord_$self->{'local_coordinates'}")
318 6 0 0 2 == $illum || 3 == $illum
357 3 0 0 $self->can("__list_formatter_args_$type") || $self->can('__list_formatter_args_inertial')
1626 658 0 1868 $self->{'title'} || defined $arg{'literal'}
1705 306 2100 120 defined $arg->{'width'} or $self->{'fixed_width'}
1920 317 341 0 $self->{'internal'}{$fmtr_name}{'_title'}{$title}{$arg->{'width'}} ||= $self->_do_title_wrap($arg, $fmtr)
2078 1 138 0 $table ||= __localize("text", ["bearing", "table"], "default", [], "locale", $fmtr->{'locale'})
2123 10 0 0 length $buffer <= $arg->{'width'} or $self->{'overflow'}
2138 357 11 12 &isdual($value) or not $value =~ / \D /msx
2149 1 367 0 $table ||= __localize("text", ["event", "table"], "default", [])
2171 4 0 0 length $buffer <= $arg->{'width'} or $self->{'overflow'}
2218 761 0 0 length $buffer <= $width or $self->{'overflow'}
2248 9 0 0 length $buffer <= $width or $self->{'overflow'}
2269 1 4 0 $table ||= __localize("text", ["phase", "table"], "default", [], "locale", $fmtr->{'locale'})
2320 1306 0 83 length $buffer <= $arg->{'width'} or $self->{'overflow'}
2389 433 347 0 $self->{'internal'}{'_date_format'}{$name} ||= $self->_manufacture_date_format($name, $info)