Branch Coverage

blib/lib/Astro/Coord/ECI/Sun.pm
Criterion Covered Total %
branch 41 78 52.5


line true false branch
109 0 134 if ref $class
110 132 2 if ($Singleton and $weaken and __classisa($class, 'Astro::Coord::ECI::Sun')) { }
112 97 35 if ($self = $object{$class}) { }
113 1 96 if @args
184 8 2 if $inx < @events
227 1 1 if $Singleton and $weaken
261 0 1125 unless defined $self->{'_sun_geometric_longitude'}
282 0 0 ref $self ? :
0 6742 $attrib{$name} ? :
0 6742 'sun' eq $name ? :
285 13 6729 wantarray ? :
324 0 0 if embodies($args[0], "Astro::Coord::ECI")
327 0 0 unless defined $theta
328 0 0 unless (defined $omega)
333 0 0 unless (defined $central_mag)
343 0 0 if ($theta < $omega)
356 0 0 wantarray ? :
421 0 7 if $self->{'iterate_for_quarters'}
425 0 7 if (defined $quarter) { }
430 0 0 if $season < $time
445 1 6 if ($time - $season > 15552000)
452 3 4 if ($season < $time)
454 0 3 if ($quarter > 3)
463 2 5 wantarray ? :
501 4 0 $self->__object_is_self_named ? :
508 2 0 $self->__object_is_self_named ? :
519 0 2 if $station = $self->get("station") and ($station->geodetic)[0] < 0
525 4 0 $self->__object_is_self_named ? :
532 4 0 $self->__object_is_self_named ? :
565 0 11 $year < 1000 ? :
586 0 11 if $self->{'debug'}
590 0 11 if $self->{'debug'}
622 0 11 if $self->{'debug'}
625 0 11 if $self->{'debug'}
631 0 11 if $self->{'debug'}
646 0 188 if ('sun' eq $name) { }
37 151 elsif ($attrib{$name}) { }
648 37 0 if (ref $self) { }
711 0 11257 if $self->{'debug'}