| line |
true |
false |
branch |
|
101
|
3 |
344 |
if (@_) |
|
127
|
1 |
10 |
if (@_) |
|
131
|
0 |
2 |
unless UNIVERSAL::isa($h, 'Astro::FITS::Header') |
|
139
|
1 |
10 |
if (wantarray) { } |
|
158
|
0 |
164 |
unless defined $index |
|
159
|
0 |
164 |
unless exists ${$$self{'HEADER'};}[$index] |
|
202
|
0 |
249 |
unless defined $index |
|
203
|
2 |
247 |
unless exists ${$$self{'HEADER'};}[$index] |
|
230
|
20 |
1 |
@items ? : |
|
|
37 |
21 |
wantarray ? : |
|
251
|
0 |
1 |
unless defined $type |
|
258
|
0 |
0 |
@items ? : |
|
|
1 |
0 |
wantarray ? : |
|
285
|
1 |
375 |
if ('Regexp' eq ref $keyword) { } |
|
286
|
7 |
108 |
if /$keyword/ |
|
293
|
353 |
22 |
if exists ${$$self{'LOOKUP'};}{$keyword} and defined ${$$self{'LOOKUP'};}{$keyword} |
|
297
|
0 |
0 |
@index ? : |
|
|
376 |
0 |
wantarray ? : |
|
323
|
1 |
0 |
@values ? : |
|
|
289 |
1 |
wantarray ? : |
|
352
|
0 |
0 |
@comments ? : |
|
|
14 |
0 |
wantarray ? : |
|
448
|
0 |
1 |
wantarray ? : |
|
483
|
0 |
5 |
wantarray ? : |
|
512
|
28 |
0 |
if (defined $offset) |
|
513
|
3 |
25 |
if @{$$self{'HEADER'};} == 0 and $offset < 0 |
|
519
|
23 |
5 |
if (@list) { } |
|
|
5 |
0 |
elsif (defined $length) { } |
|
|
0 |
0 |
elsif (defined $offset) { } |
|
523
|
0 |
23 |
unless UNIVERSAL::isa($i, 'Astro::FITS::Header::Item') |
|
543
|
1 |
27 |
wantarray ? : |
|
623
|
32 |
2 |
if (exists $args{'Cards'} and defined $args{'Cards'}) { } |
|
|
0 |
2 |
elsif (exists $args{'Items'} and defined $args{'Items'}) { } |
|
|
2 |
0 |
elsif (exists $args{'Hash'} and defined $args{'Hash'}) { } |
|
|
0 |
0 |
elsif (not defined $$self{'HEADER'} && @{$$self{'HEADER'};}) { } |
|
644
|
0 |
2 |
unless ref $args{'Hash'} eq 'HASH' |
|
649
|
0 |
2 |
if ($k eq 'SUBHEADERS' and ref $args{'Hash'}{$k} eq 'ARRAY' and ref $args{'Hash'}{$k}[0] eq 'HASH') { } |
|
|
2 |
0 |
elsif (not ref $args{'Hash'}{$k}) { } |
|
658
|
0 |
2 |
unless defined $value |
|
669
|
0 |
2 |
if @subheaders |
|
721
|
3 |
4 |
if (ref $_[0] eq 'HASH') |
|
751
|
0 |
369 |
if (not defined $type or $type eq 'BLANK') { } |
|
|
30 |
339 |
elsif ($type eq 'COMMENT') { } |
|
|
0 |
339 |
elsif ($type eq 'HEADER') { } |
|
762
|
195 |
174 |
if (exists $items{$key}) { } |
|
790
|
183 |
12 |
if ($items[0]{'item'}->equals($$i{'item'})) |
|
799
|
164 |
10 |
if ($match == @items and $match == $nhdr || $opt{'merge_unique'}) { } |
|
816
|
6 |
1 |
unless ($opt{'force_return_diffs'}) |
|
817
|
3 |
3 |
unless grep {@$_ != 0;} @difference |
|
831
|
5 |
2 |
wantarray ? : |
|
870
|
0 |
0 |
if (UNIVERSAL::isa($thing, 'Astro::FITS::Header::Item')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($thing, 'Astro::FITS::Header')) { } |
|
|
0 |
0 |
elsif (ref $thing eq 'ARRAY') { } |
|
880
|
0 |
0 |
if (defined $item) { } |
|
889
|
0 |
0 |
if uc $card->keyword eq 'SIMPLE' |
|
894
|
0 |
0 |
defined $index ? : |
|
955
|
2792 |
70 |
if (not exists ${$$self{'LOOKUP'};}{$key} && defined ${$$self{'LOOKUP'};}{$key}) { } |
|
1159
|
1 |
0 |
if ($newobj->can($method)) |
|
1177
|
1 |
174 |
if ($key eq 'SUBHEADERS') |
|
1186
|
6 |
168 |
if ($key =~ /_COMMENT$/) |
|
1197
|
9 |
159 |
if ($wantcomment or $key =~ /^(COMMENT)|(HISTORY)$/ or $key =~ /^END$/) |
|
1200
|
7 |
8 |
if $t_ok and $item->type eq 'COMMENT' |
|
1205
|
2 |
0 |
$wantvalue ? : |
|
|
2 |
172 |
if $t_ok and $item->type eq 'END' or defined $item and $key eq 'END' |
|
1211
|
160 |
12 |
$wantvalue ? : |
|
1221
|
2 |
170 |
if ($self->tiereturnsref) { } |
|
1230
|
164 |
6 |
if (scalar @values <= 1) { } |
|
1235
|
17 |
0 |
defined $_ ? : |
|
1239
|
6 |
0 |
if defined $out[0] |
|
1247
|
7 |
165 |
if ($t_ok and $item->type eq 'COMMENT') |
|
1254
|
11 |
162 |
if (UNIVERSAL::isa($hdr, 'Astro::FITS::Header') or $ishdr) |
|
1267
|
2 |
170 |
if ($self->tiereturnsref and scalar @out > 1) { } |
|
1305
|
2 |
14 |
if (defined $value and not ref $value and not $keyword =~ /(_COMMENT$)|(^(COMMENT|HISTORY)$)/ and $value =~ s[\s*(?
|
|
1317
|
16 |
5 |
if (defined $value and not ref $value) |
|
1324
|
0 |
21 |
if (not defined $value) { } |
|
|
1 |
20 |
elsif (UNIVERSAL::isa($value, 'Astro::FITS::Header')) { } |
|
|
3 |
17 |
elsif (ref $value eq 'HASH') { } |
|
|
3 |
14 |
elsif (ref $value eq 'ARRAY' or length $value > 70 or $value =~ /\n/s) { } |
|
1334
|
1 |
2 |
if (defined $tied and UNIVERSAL::isa($tied, 'Astro::FITS::Header')) { } |
|
1347
|
1 |
2 |
if (ref $value eq 'ARRAY') { } |
|
|
0 |
2 |
elsif (ref $value) { } |
|
|
2 |
0 |
elsif ($value =~ /\n/s) { } |
|
1381
|
1 |
20 |
if ($keyword eq 'END') |
|
1385
|
1 |
0 |
if (@index != 1 or $index[0] != $#{$self->allitems;}) |
|
1391
|
1 |
0 |
unless (@index) |
|
1401
|
1 |
19 |
if ($keyword eq 'SIMPLE') |
|
1405
|
1 |
0 |
if (@index != 1 or $index[0] != 0) |
|
1411
|
1 |
0 |
unless (@index) |
|
1423
|
3 |
16 |
if ($keyword =~ /_COMMENT$/) |
|
1431
|
2 |
17 |
if (scalar @items > scalar @values) |
|
1452
|
6 |
18 |
if ($Astro::FITS::Header::COMMENT_FIELD{$keyword}) { } |
|
|
3 |
15 |
elsif (not $havevalue) { } |
|
1459
|
7 |
8 |
$#values > 0 || ref $value ? : |
|
1462
|
3 |
12 |
if $#values > 0 |
|
1474
|
2 |
5 |
if ($keyword eq 'SUBHEADERS') |
|
1475
|
1 |
1 |
scalar @{$self->subhdrs;} > 0 ? : |
|
1478
|
2 |
3 |
unless (exists ${$$self{'LOOKUP'};}{$keyword}) |
|
1485
|
3 |
0 |
if (exists ${$$self{'LOOKUP'};}{$keyword}) |
|
1488
|
1 |
2 |
if defined $type and $type eq 'COMMENT' || $type eq 'BLANK' |
|
1515
|
0 |
4 |
unless @{$$self{'HEADER'};} |
|
1527
|
5 |
137 |
if ($$self{'LASTKEY'} + 1 == scalar @{$$self{'HEADER'};}) |
|
1538
|
0 |
139 |
unless defined $a |
|
1550
|
1 |
4 |
if (scalar @{$self->subhdrs;} and not $$self{'SEENKEY'}{'SUBHEADERS'}) |
|
1624
|
5 |
0 |
if ($index >= 0 and $index <= $#$arr) { } |
|
1658
|
0 |
0 |
if $index > $#$arr or $index < 0 |
|
1659
|
0 |
0 |
if defined $$self{'SUBHDRS'}[$index] |
|
1713
|
7 |
0 |
if (defined $hdr) |
|
1727
|
0 |
4 |
if (UNIVERSAL::isa($value, 'Astro::FITS::Header')) { } |
|
|
4 |
0 |
elsif (ref $value eq 'HASH') { } |
|
1731
|
3 |
1 |
if (defined $tied and UNIVERSAL::isa($tied, 'Astro::FITS::Header')) { } |