Branch Coverage

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


line true false branch
810 0 12 if $constname eq "constant"
811 0 12 @_ ? :
812 0 12 if ($! != 0)
813 0 0 if ($! =~ /Invalid/) { }
845 0 0 unless @_
857 0 0 if (UNIVERSAL::isa($file, 'fitsfilePtr')) { }
867 0 0 unless ($status)
874 0 0 unless $status == 0
882 0 0 if (not exists $header{'COMMENTS'}{$key}) { }
887 0 0 unless (ref $header{'COMMENTS'}{$key})
896 0 0 unless $obj_passed
903 0 0 if wantarray
916 0 0 if wantarray