Condition Coverage

blib/lib/PDL/IO/FITS.pm
Criterion Covered Total %
condition 104 239 43.5


and 3 conditions

line !l l&&!r l&&r condition
364 42 1 2 wantarray and not $fh->eof
377 45 3 0 wantarray and not $opt->{'data'}
48 0 0 wantarray and not $opt->{'data'} and @extensions
378 0 0 0 $fh->read($line, 80) and not $line =~ /^XTENSION=/
0 0 0 $fh->read($line, 80) and not $line =~ /^XTENSION=/ and not $fh->eof
387 2 46 0 $nbytes == 0 and not $line =~ /^SIMPLE = +T/
414 3 42 3 not wantarray and $currentext != $extnum
439 0 0 48 $PDL::Astro_FITS_Header and $opt->{'afh'}
481 0 0 0 defined $name and $name eq 'END'
502 2 42 4 not defined $foo->{'XTENSION'} and $foo->{'NAXIS'} == 0
44 1 3 not defined $foo->{'XTENSION'} and $foo->{'NAXIS'} == 0 and not wantarray
43 0 3 not defined $foo->{'XTENSION'} and $foo->{'NAXIS'} == 0 and not wantarray and not $explicit_extension
558 0 0 1 ref $extensions[0] eq 'HASH' and $extensions[0]{'SIMPLE'}
0 0 1 ref $extensions[0] eq 'HASH' and $extensions[0]{'SIMPLE'} and exists $extensions[0]{'NAXIS'}
0 0 1 ref $extensions[0] eq 'HASH' and $extensions[0]{'SIMPLE'} and exists $extensions[0]{'NAXIS'} and $extensions[0]{'NAXIS'} == 0
636 41 0 68 defined $$foo{"NAXIS$i"} and $i <= $foo->{'NAXIS'}
688 23 17 1 $foo->{'BITPIX'} > 0 and exists $foo->{'BLANK'}
704 39 2 0 $pdl->badflag and $PDL::verbose
1266 0 0 8 $hdr->{'NAXIS2'} > 0 and $tmpcol->{'rpt'} > 0
1285 3 0 0 $hdr->{'ZIMAGE'} and $hdr->{'ZCMPTYPE'}
0 0 0 $hdr->{'ZIMAGE'} and $hdr->{'ZCMPTYPE'} and $opt->{'expand'}
1526 0 0 0 exists $$hdr{'Z' . $_} and defined $$hdr{'Z' . $_}
1995 0 31 2 $PDL::Astro_FITS_Header and defined $h
31 0 2 $PDL::Astro_FITS_Header and defined $h and ref $h eq 'HASH'
31 0 2 $PDL::Astro_FITS_Header and defined $h and ref $h eq 'HASH' and not defined tied %$h
2025 0 0 2 defined tied %$h and UNIVERSAL::isa(tied %$h, 'Astro::FITS::Header')
31 0 2 defined $h and (defined tied %$h and UNIVERSAL::isa(tied %$h, 'Astro::FITS::Header'))
2060 4 0 0 exists $$h{"NAXIS$k"} && $$h{"NAXIS$k"} != $pdl->dim($k - 1)
2087 6 8 4 defined $index[0] and $kn
2230 31 1 1 $pdl->badflag and $BITPIX < 0
32 0 1 $pdl->badflag and $BITPIX < 0 and $PDL::Bad::UseNaN == 0
2246 0 0 0 $pdl->badflag and $BITPIX < 0
0 0 0 $pdl->badflag and $BITPIX < 0 and $PDL::Bad::UseNaN == 0
2256 31 1 1 $pdl->badflag and $BITPIX < 0
32 0 1 $pdl->badflag and $BITPIX < 0 and $PDL::Bad::UseNaN == 0
2385 1 0 9 !(/^(hdr|tbl)$/ || /^len_/) && defined $hash->{$_}
2400 3 0 6 defined $rows and $rows != 1
2401 9 0 0 $r != $rows and $r != 1
2441 9 0 0 $name ne $key and $PDL::verbose
2494 3 0 0 $PDL::debug and $i != $cols
2691 1 8 0 UNIVERSAL::isa($var, 'PDL') and $var->ndims > 1

or 2 conditions

line l !l condition
914 0 0 $$hdr{"TNULL$i"} || 0
1006 9 0 $$hdr{"TTYPE$i"} || 'COL'
1024 9 0 $tmpcol->{'rpt'} ||= 1
1063 8 0 $hdr->{'NAXIS2'} || 1

or 3 conditions

line l !l&&r !l&&!r condition
88 0 0 0 $ENV{'PDL_FITS_LEGACY'} or $PDL::Config{'FITS_LEGACY'}
335 0 0 46 @_ < 1 or @_ > 2
389 0 0 48 $fh->eof or not $ct
444 0 48 389 $fh->eof or $line =~ /^END(\s|\000)/
516 0 1 44 not $opt->{'data'} or $foo->{'NAXIS'} == 0
537 0 0 0 $PDL::verbose or $PDL::debug
661 8 10 23 $pdl->get_datatype == $PDL::IO::FITS::PDL_L or $pdl->get_datatype == $PDL::IO::FITS::PDL_F
662 13 1 27 $pdl->get_datatype == $PDL::IO::FITS::PDL_D or $pdl->get_datatype == $PDL::IO::FITS::PDL_LL
711 41 0 0 not defined $bscale or $bscale eq ''
712 41 0 0 not defined $bzero or $bzero eq ''
893 0 0 0 length $$hdr{"TSCAL$n"} or length $$hdr{"TZERO$n"}
969 0 0 0 length $$hdr{"TZERO$n"} or length $$hdr{"TSCAL$n"}
1012 0 0 9 defined $tbl->{$name} or $name eq 'COL'
1187 0 0 8 $valid_tzero or $valid_tscal
1533 0 0 0 $k =~ /^Z/ or $k eq 'TFIELDS'
0 0 0 $k =~ /^Z/ or $k eq 'TFIELDS' or $k =~ /^TTYPE/
0 0 0 $k =~ /^Z/ or $k eq 'TFIELDS' or $k =~ /^TTYPE/ or $k =~ /^TFORM/
1541 0 0 0 exists $hdr->{'BSCALE'} or exists $hdr->{'BLANK'}
1823 0 0 31 $hdrk eq 'F' or $hdrk eq 'T'
1864 0 0 38 $#_ < 1 or $#_ > 3
1870 0 38 0 ref $y eq 'HASH' or not defined $y
1940 2 0 19 $pdl->get_datatype == $PDL::IO::FITS::PDL_S or $pdl->get_datatype == $PDL::IO::FITS::PDL_US
1971 0 0 15 $min < $dmin or $max > $dmax
2003 0 0 5 length $k > 8 or not $k =~ /^[A-Z_][A-Z\d\_]*$/i
2173 0 0 31 $bscale != 1 or $bzero != 0
2211 5 4 24 $BITPIX == 32 or $BITPIX == -32
2212 14 1 18 $BITPIX == -64 or $BITPIX == 64
2441 0 0 9 $PDL::debug or $name ne $key and $PDL::verbose
2459 0 0 2 $num > $cols or $num < 1
2612 0 0 0 not UNIVERSAL::isa($var, 'PDL') or $var->ndims != 2
0 0 0 not UNIVERSAL::isa($var, 'PDL') or $var->ndims != 2 or not UNIVERSAL::isa($lengths, 'PDL')
0 0 0 not UNIVERSAL::isa($var, 'PDL') or $var->ndims != 2 or not UNIVERSAL::isa($lengths, 'PDL') or $lengths->ndims != 1
0 0 0 not UNIVERSAL::isa($var, 'PDL') or $var->ndims != 2 or not UNIVERSAL::isa($lengths, 'PDL') or $lengths->ndims != 1 or $lengths->dim(0) != $var->dim(0)
2670 0 0 0 $tmp->get_datatype == $PDL::IO::FITS::PDL_L or $tmp->get_datatype == $PDL::IO::FITS::PDL_F
2720 12 4 16 $tmp->get_datatype == $PDL::IO::FITS::PDL_L or $tmp->get_datatype == $PDL::IO::FITS::PDL_F
2822 24 0 18 defined $newhdr{$field} or $field =~ /^end|simple|xtension$/i