Branch Coverage

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


line true false branch
820 0 2 if $constname eq "constant"
821 0 2 @_ ? :
822 0 2 if ($! != 0)
823 0 0 if ($! =~ /Invalid/) { }
855 0 0 unless @_
867 0 0 if (UNIVERSAL::isa($file, 'fitsfilePtr')) { }
877 0 0 unless ($status)
884 0 0 unless $status == 0
892 0 0 if (not exists $header{'COMMENTS'}{$key}) { }
897 0 0 unless (ref $header{'COMMENTS'}{$key})
906 0 0 unless $obj_passed
913 0 0 if wantarray
926 0 0 if wantarray