Branch Coverage

blib/lib/Astro/Coords/Elements.pm
Criterion Covered Total %
branch 29 56 51.7


line true false branch
108 0 5 unless exists $opts{'elements'} and ref $opts{'elements'}
113 4 1 if (ref $opts{'elements'} eq 'HASH') { }
1 0 elsif (ref $opts{'elements'} eq 'ARRAY' and $opts{'elements'}[0] eq 'ELEMENTS') { }
124 1 0 if (not defined $elements{'AORL'} and defined $opts{'elements'}[$i]) { }
138 0 25 unless exists $elements{$_}
143 0 10 unless exists $elements{$key}
148 0 10 unless (defined $epoch)
155 8 2 if ($epoch =~ /^\d+\.\d+$/ or $epoch =~ /^\d+$/) { }
2 0 elsif ($epoch =~ /\d\d\d\d \w\w\w \d+\.\d+/) { }
166 2 0 if defined $tzoffset
181 0 10 if ($elements{$key} > "2400000.5")
190 0 0 unless exists $elements{'EPOCH'} or exists $elements{'EPOCHPERIH'}
250 0 1 unless $epoch
255 1 0 if (defined $el{'EPOCHPERIH'} and not defined $el{'DM'} and not defined $el{'AORL'}) { }
293 28 1 defined $_ ? :
309 0 0 unless defined $name
329 20 3 unless (defined $ra_app and defined $dec_app)
332 19 1 defined $tel ? :
333 19 1 defined $tel ? :
336 0 20 if (exists $el{'DM'} and defined $el{'DM'}) { }
0 20 elsif (exists $el{'AORL'} and defined $el{'AORL'}) { }
351 0 20 unless (exists $el{'EPOCH'} and exists $el{'EPOCHPERIH'})
352 0 0 if (exists $el{'EPOCH'}) { }
361 20 0 if ($jform == 2 or $jform == 3)
374 0 0 defined $self->name ? :
0 20 if $jstat != 0
393 0 0 defined $self->name ? :
0 20 if $j != 0