Condition Coverage

blib/lib/Astro/Coord/ECI/TLE/Iridium.pm
Criterion Covered Total %
condition 11 50 22.0


and 3 conditions

line !l l&&!r l&&r condition
329 5 2 1 defined $spare and 'all' eq $spare
547 0 0 2 $want{'am'} && $want{'day'} && $want{'pm'}
613 0 0 0 $want{'day'} and $sun_elev > $day_limit
614 0 0 0 $want{'am'} || $want{'pm'} and $sun_elev < $night_limit
618 0 0 0 $want{'am'} and $time_of_day > 85920 || $time_of_day < 43680
620 0 0 0 $want{'pm'} and $time_of_day > 42720 || $time_of_day < 480
820 0 0 4 not $flare->{'status'} and $want{$flare->{'type'}}
1554 1 0 0 defined $name and $name =~ s/ \s* [[] ( \S ) []] \s* \z //msx

or 2 conditions

line l !l condition
611 0 0 eval { do { my $sun_elev = ($station->azel($sun->universal($time)))[1]; return 1 if $want{'day'} and $sun_elev > $day_limit; return 0 unless $want{'am'} || $want{'pm'} and $sun_elev < $night_limit; my(@local_time) = $self->_time_in_zone($time); my $time_of_day = ($local_time[2] * 60 + $local_time[1]) * 60 + $local_time[0]; return 1 if $want{'am'} and $time_of_day > 85920 || $time_of_day < 43680; return 1 if $want{'pm'} and $time_of_day > 42720 || $time_of_day < 480; 0 } } or next

or 3 conditions

line l !l&&r !l&&!r condition
333 3 0 4 !$status || $spare && $status == $self->BODY_STATUS_IS_SPARE
527 2 0 0 shift() || time
528 2 0 0 shift() || $start + 86400
614 0 0 0 $want{'am'} || $want{'pm'}
618 0 0 0 $time_of_day > 85920 || $time_of_day < 43680
620 0 0 0 $time_of_day > 42720 || $time_of_day < 480
866 0 0 0 do { $self->universal($end); my($illum_vector, $station_vector) = $self->_flare_transform_coords_list($illum->universal($end), $station->universal($end)); my $angle = _flare_calculate_angle_list($mma, $illum_vector, $station_vector); defined $angle ? [$angle, $end, $illum_vector, $station_vector] : undef } || confess("Programming error - No entrance found by _flare_entrance.\n @{[join(' - ', grep({$_;} map({$self->get($_);} 'name', 'id')))];}\n \$mma = $mma\n \$start = $start = @{[scalar localtime $start];}\n \$end = $end = @{[scalar localtime $end];}\n")
2 0 0 $output ||= do { $self->universal($end); my($illum_vector, $station_vector) = $self->_flare_transform_coords_list($illum->universal($end), $station->universal($end)); my $angle = _flare_calculate_angle_list($mma, $illum_vector, $station_vector); defined $angle ? [$angle, $end, $illum_vector, $station_vector] : undef } || confess("Programming error - No entrance found by _flare_entrance.\n @{[join(' - ', grep({$_;} map({$self->get($_);} 'name', 'id')))];}\n \$mma = $mma\n \$start = $start = @{[scalar localtime $start];}\n \$end = $end = @{[scalar localtime $end];}\n")