Branch Coverage

blib/lib/App/SourcePlot/Source.pm
Criterion Covered Total %
branch 28 128 21.8


line true false branch
57 0 1020 if $locateBug
65 0 1020 if $locateBug
71 0 1020 if $locateBug
81 0 1020 unless (@_)
88 0 1020 if (UNIVERSAL::isa($name, 'Astro::Coords')) { }
1020 0 elsif (@_) { }
92 0 1020 if $locateBug
96 1020 0 $ra =~ /:/ || $dec =~ /:/ ? :
100 527 493 if ($epoc eq 'RJ') { }
493 0 elsif ($epoc eq 'RB') { }
0 0 elsif ($epoc eq 'GA') { }
0 0 elsif ($epoc eq 'AZ') { }
101 0 527 $unit eq 'degrees' ? :
110 0 493 $unit eq 'degrees' ? :
172 1020 2960 if (defined $coords)
173 0 1020 unless UNIVERSAL::isa($coords, 'Astro::Coords')
190 1020 0 if @_
191 1020 0 if defined $$self{'ACTIVE'}
206 0 0 if @_
207 0 0 if defined $$self{'COLOR'}
222 0 0 if @_
223 0 0 if defined $$self{'LINEWIDTH'}
238 0 0 if @_
239 0 0 if defined $$self{'INDEX'}
254 0 0 if (@_)
259 0 0 if $self->epoc eq 'GA'
274 0 0 if (@_)
279 0 0 if $self->epoc eq 'GA'
293 0 0 if (@_)
309 0 0 if (@_)
327 0 0 if $native_method eq 'radec'
328 0 0 if $native_method eq 'radec1950'
329 0 0 if $native_method eq 'glonglat'
330 0 0 if $native_method eq 'azel'
345 0 0 if (@_)
377 0 0 if @_
378 0 0 if defined $$self{'NAMEX'}
393 0 0 if @_
394 0 0 if defined $$self{'NAMEY'}
410 0 0 if (@_)
416 0 0 if defined $$self{'ELEX'}
432 0 0 if @_
433 0 0 if defined $$self{'TIMEDOTX'}
449 0 0 if @_
450 0 0 if defined $$self{'TIMEDOTY'}
480 20 0 if defined $$self{'TIME_ELE_POINTS'}
486 0 0 if defined $$self{'TIME_AZ_POINTS'}
492 0 0 if defined $$self{'TIME_PA_POINTS'}
498 0 0 if defined $$self{'ELE_TIME_POINTS'}
504 0 0 if defined $$self{'ELE_AZ_POINTS'}
510 0 0 if defined $$self{'ELE_PA_POINTS'}
516 0 0 if defined $$self{'AZ_TIME_POINTS'}
522 0 0 if defined $$self{'AZ_ELE_POINTS'}
528 20 0 if defined $$self{'AZ_PA_POINTS'}
534 0 0 if defined $$self{'PA_TIME_POINTS'}
540 0 0 if defined $$self{'PA_ELE_POINTS'}
546 0 0 if defined $$self{'PA_AZ_POINTS'}
564 0 0 if (not UNIVERSAL::isa($self->coords, 'Astro::Coords::Planet')) { }
625 0 20 if defined $$self{'TIME_ELE_POINTS'}
626 0 20 if (defined $tlen and $tlen > 0)
637 870 1070 if (defined $lst_prev and $lst < $lst_prev)
646 0 870 if ($lst < $lst_prev)
729 2940 0 if defined $dt
730 1000 1940 if defined $tel