Branch Coverage

blib/lib/Astro/FITS/HdrTrans/UFTI.pm
Criterion Covered Total %
branch 27 68 39.7


line true false branch
112 1 0 if (defined $FITS_headers->{'CDELT2'}) { }
118 0 0 if (defined $date)
119 0 0 if ($date < 19990701) { }
0 0 elsif ($date < 20010401) { }
0 0 elsif ($date < 20011115) { }
136 0 1 if (defined $FITS_headers->{'CTYPE2'} and $FITS_headers->{'CTYPE2'} eq 'DEC--TAN' and abs $scale < 0.001)
156 0 2 unless (exists $FITS_headers->{'DHSVER'})
171 0 1 if (exists $FITS_headers->{'FILTER'} and $FITS_headers->{'FILTER'} =~ /pol/i) { }
199 1 0 if (exists $FITS_headers->{'RABASE'})
203 0 1 if (defined $format and $format eq 'HDS' and defined $date and $date > 20000507 and $date < 20000720) { }
233 1 0 if (defined $generic_headers->{'RA_BASE'})
236 0 1 if (defined $generic_headers->{'FILE_FORMAT'} and $generic_headers->{'FILE_FORMAT'} eq 'HDS' and defined $date and $date > 20000507 and $date < 20000720) { }
271 1 0 if (defined $FITS_headers->{'CDELT1'}) { }
277 0 0 if (defined $date)
278 0 0 if ($date < 19990701) { }
0 0 elsif ($date < 20010401) { }
0 0 elsif ($date < 20011115) { }
295 1 0 if ($scale > 0)
302 0 1 if (defined $FITS_headers->{'CTYPE1'} and $FITS_headers->{'CTYPE1'} eq 'RA---TAN' and abs $scale < 0.001)
327 1 0 if (defined $generic_headers->{'RA_SCALE'})
345 5 1 if (exists $FITS_headers->{'DATE'})
352 0 5 if (ref $utdate eq 'ARRAY')
374 1 0 if (exists $generic_headers->{'UTDATE'})
377 0 1 unless defined $date
395 1 0 exists $FITS_headers->{'DATE-END'} ? :
398 0 1 if (defined $dateend and not $dateend =~ /\d/)
420 2 0 exists $FITS_headers->{'DATE-OBS'} ? :
423 0 2 if (defined $dateobs and not $dateobs =~ /\d/)
449 1 0 if (exists $FITS_headers->{'RDOUT_X1'} and exists $FITS_headers->{'RDOUT_X2'}) { }
458 1 0 if ($xdim == 1024) { }
465 0 1 if ($FITS_headers->{'FILTER'} =~ /pol/)
501 1 0 if (exists $FITS_headers->{'RDOUT_Y1'} and exists $FITS_headers->{'RDOUT_Y2'}) { }
510 1 0 if ($ydim == 1024) { }
517 0 1 if ($FITS_headers->{'FILTER'} =~ /pol/)