Condition Coverage

blib/lib/Astro/Coords.pm
Criterion Covered Total %
condition 92 139 66.1


and 3 conditions

line !l l&&!r l&&r condition
233 1051 0 511 exists $args{'planet'} and defined $args{'planet'}
243 1046 0 5 exists $args{'elements'} and defined $args{'elements'} && (UNIVERSAL::isa($args{'elements'}, 'HASH') && (exists $args{'elements'}{'EPOCH'} && defined $args{'elements'}{'EPOCH'} || exists $args{'elements'}{'EPOCHPERIH'} && defined $args{'elements'}{'EPOCHPERIH'})) || ref $args{'elements'} eq 'ARRAY' && $args{'elements'}[0] eq 'ELEMENTS'
13 0 1029 exists $args{'type'} and defined $args{'type'}
367 3 12327 0 defined $time and not UNIVERSAL::can($time, "mjd")
376 75 0 76657 defined $self->{'DateTime'} and not $self->usenow
517 6157 0 1 defined $az and defined $el
1017 4 0 8 $el > $limits{'el'}{'min'} and $el < $limits{'el'}{'max'}
1028 1 0 2 $ha > $limits{'ha'}{'min'} and $ha < $limits{'ha'}{'max'}
1031 0 1 1 $dec > $limits{'dec'}{'min'} and $dec < $limits{'dec'}{'max'}
1238 1 0 0 $dateclass ne "Time::Piece" and $dateclass ne "DateTime"
1443 2003 918 143 defined $self->name and lc $self->name eq "moon"
2921 141 2 defined $self->name and lc $self->name eq "moon" and abs $cos_ha0 > 1
1471 1491 912 143 defined $self->name and lc $self->name eq "sun"
2403 0 143 defined $self->name and lc $self->name eq "sun" and $self->isa("Astro::Coords::Planet")
1558 0 0 3 defined $prev and defined $next
1587 738 337 0 $event != 1 and $event != -1
1611 0 918 157 defined $self->name and lc $self->name eq "moon"
1655 1075 0 2903 defined $prevtime and defined $mtime
1694 1492 3485 493 defined $self->name and lc $self->name eq "sun"
4977 0 493 defined $self->name and lc $self->name eq "sun" and $self->isa("Astro::Coords::Planet")
1809 13 0 7 $method eq "comment" and $value eq ""
2541 0 0 4848 defined $a->[0] and defined $b->[0]
2542 0 143 67 $b->[2] and $a->[2]
2546 0 0 143 defined $a->[0] and defined $b->[0]
2611 0 0 856 defined $event[0][0] and defined $event[1][0]
2759 1 904 149 defined $self->name and lc $self->name eq "moon"
2840 4 0 2324 abs $deltat > 0 and abs $deltael > 0
2865 1277 727 374 $has_been_low && $has_been_high

or 2 conditions

line l !l condition
685 3 6 shift() || 'J2000'
2495 1684 856 $event || 1

or 3 conditions

line l !l&&r !l&&!r condition
243 0 1 0 defined $args{'elements'} && (UNIVERSAL::isa($args{'elements'}, 'HASH') && (exists $args{'elements'}{'EPOCH'} && defined $args{'elements'}{'EPOCH'} || exists $args{'elements'}{'EPOCHPERIH'} && defined $args{'elements'}{'EPOCHPERIH'})) || ref $args{'elements'} eq 'ARRAY' && $args{'elements'}[0] eq 'ELEMENTS'
8 0 5 exists $args{'az'} or exists $args{'el'}
0 0 5 exists $args{'az'} or exists $args{'el'} or exists $args{'ha'}
1238 0 0 1 not $dateclass or $dateclass ne "Time::Piece" and $dateclass ne "DateTime"
1542 1731 830 3 $event == 1 or $event == -1
1587 0 0 1075 not defined $event or $event != 1 and $event != -1
1872 2 0 0 $vd eq "REDSHIFT" or $vd eq "OPTICAL"
2040 0 1 0 $vdefn eq "OPTICAL" or $vdefn eq "REDSHIFT"
2096 1 3 0 shift() || $self->vframe
2097 4 0 0 shift() || $self->vframe
2542 4638 67 143 abs $b->[1] - $a->[1] > $safety_seconds or $b->[2] and $a->[2]
2582 0 1484 200 not defined $cmp or $cmp * $event > 0
2671 1684 0 1480 $cmp == $event or $cmp == 0
3010 3 1 6 $in eq "LSRK" or $in eq "LSRD"
4 0 6 $in eq "LSRK" or $in eq "LSRD" or $in eq "LG"
3243 1521 0 14546 not $self->has_datetime or $self->usenow
1521 1137 13409 not $self->has_datetime or $self->usenow or $self->datetime_is_unsafe