| line |
true |
false |
branch |
|
57
|
2 |
0 |
if defined $s->{'packing'} |
|
59
|
1 |
1 |
if defined $s->{'hdunum'} |
|
77
|
3 |
0 |
if $_[0] =~ /^\d+$/ |
|
110
|
32 |
7 |
'HASH' eq ref $_[-1] ? : |
|
115
|
0 |
39 |
unless defined $input and UNIVERSAL::isa($input, 'fitsfilePtr') || !ref($input) |
|
137
|
15 |
24 |
if @_ |
|
156
|
2 |
37 |
if (UNIVERSAL::isa($input, 'fitsfilePtr')) { } |
|
165
|
1 |
1 |
if ($opt{'resethdu'}) |
|
181
|
0 |
39 |
if $opt{'slurp'} |
|
187
|
1 |
38 |
if (exists $opt{'extname'}) { } |
|
|
3 |
35 |
elsif (exists $opt{'hdunum'}) { } |
|
194
|
0 |
1 |
unless match_hdutype($opt{'hdutype'}, $hdutype) |
|
202
|
1 |
1 |
unless match_hdutype($opt{'hdutype'}, $hdutype) |
|
213
|
37 |
27 |
if (IMAGE_HDU() == $hdutype) |
|
215
|
27 |
10 |
unless $naxis |
|
217
|
35 |
2 |
if match_hdutype($opt{'hdutype'}, $hdutype) |
|
226
|
0 |
35 |
if BAD_HDU_NUM() == $status |
|
230
|
0 |
35 |
if $@ |
|
242
|
27 |
10 |
if (BINARY_TBL() == $hdutype or ASCII_TBL() == $hdutype) { } |
|
|
10 |
0 |
elsif (IMAGE_HDU() == $hdutype) { } |
|
258
|
0 |
0 |
'HASH' eq ref $_[-1] ? : |
|
267
|
0 |
0 |
if @_ > 1 |
|
281
|
0 |
0 |
'HASH' eq ref $_[-1] ? : |
|
299
|
14 |
26 |
if "table" eq $req |
|
304
|
22 |
4 |
if ANY_HDU() == $reqtype |
|
306
|
2 |
2 |
if $reqtype == $actual |