Branch Coverage

blib/lib/Astro/FITS/HdrTrans/Base.pm
Criterion Covered Total %
branch 37 54 68.5


line true false branch
75 1 19 if (exists $opts{'prefix'} and defined $opts{'prefix'})
81 0 20 if (exists $opts{'frameset'} and defined $opts{'frameset'})
86 0 20 unless ref $FITS and ref $FITS eq "HASH"
97 1164 1756 if ($class->can($method))
99 901 263 if (defined $result) { }
108 20 0 if @failed
129 0 15 unless ref $generic and ref $generic eq "HASH"
139 782 1408 if ($class->can($method))
177 0 527 unless defined $ref
181 243 284 unless (ref $ref)
189 527 13 if (exists $headers->{$k} and defined $headers->{$k})
196 0 527 unless defined $inst
320 272 240 if (defined $null)
336 30 482 if (defined $endobs)
377 8 0 if ($value >= 0) { }
397 65 0 if (defined $datestr)
424 0 8 unless defined $sep
429 1 7 unless ($sep)
519 717 258 if (exists $FITS_headers->{$keyword} and defined $FITS_headers->{$keyword}) { }
0 258 elsif ($FITS_headers->{'SUBHEADERS'} and exists $FITS_headers->{'SUBHEADERS'}[0]{$keyword}) { }
0 258 elsif (exists $FITS_headers->{'I1'} and exists $FITS_headers->{'I1'}{$keyword}) { }
522 0 717 if (ref $FITS_headers->{$keyword} eq 'ARRAY') { }
531 0 0 if (exists $s->{$keyword} and defined $s->{$keyword})
545 975 0 wantarray ? :
564 38 863 wantarray ? :
595 0 20 if ($key =~ /^from_/ or $key =~ /^to_/)
604 0 40 unless (defined *{"${class}::$method";})