Branch Coverage

blib/lib/Astro/FITS/CFITSIO.pm
Criterion Covered Total %
branch 3 26 11.5


line true false branch
811 0 2 if $constname eq "constant"
812 0 2 @_ ? :
813 0 2 if ($! != 0)
814 0 0 if ($! =~ /Invalid/) { }
846 0 0 unless @_
858 0 0 if (UNIVERSAL::isa($file, 'fitsfilePtr')) { }
868 0 0 unless ($status)
875 0 0 unless $status == 0
883 0 0 if (not exists $header{'COMMENTS'}{$key}) { }
888 0 0 unless (ref $header{'COMMENTS'}{$key})
897 0 0 unless $obj_passed
904 0 0 if wantarray
917 0 0 if wantarray