| line |
true |
false |
branch |
|
83
|
790 |
0 |
if @_ |
|
124
|
598 |
4574 |
if (@_) |
|
148
|
570 |
923 |
if (@_) |
|
153
|
5 |
565 |
if (UNIVERSAL::isa($value, 'Astro::FITS::Header')) { } |
|
|
0 |
596 |
elsif (defined $self->type and $self->type eq 'HEADER') { } |
|
178
|
573 |
627 |
if (@_) |
|
209
|
616 |
2516 |
if (@_) |
|
211
|
608 |
8 |
if defined $type |
|
254
|
657 |
415 |
if (@_) |
|
256
|
534 |
123 |
if (defined $card) |
|
259
|
69 |
465 |
if ($clen < 80) { } |
|
|
0 |
465 |
elsif ($clen > 80) { } |
|
273
|
152 |
920 |
unless defined $$self{'Card'} |
|
331
|
738 |
52 |
if (exists $hash{'Card'}) { } |
|
332
|
204 |
534 |
if (ref $hash{'Card'} and $hash{'Card'}->isa('Astro::FITS::Header::Item')) { } |
|
345
|
162 |
46 |
if exists $hash{$key} |
|
349
|
19 |
33 |
unless ($self->type) |
|
350
|
0 |
19 |
if (not $self->keyword || $self->value) { } |
|
|
2 |
17 |
elsif (not $self->keyword or $self->keyword =~ /^(COMMENT|HISTORY)$/) { } |
|
358
|
17 |
0 |
if defined $type |
|
363
|
2 |
50 |
if $self->keyword eq 'END' |
|
418
|
0 |
534 |
unless @_ |
|
433
|
8 |
526 |
if ($keyword eq 'HIERARCH' or $card =~ /^\s+HIERARCH/) |
|
439
|
0 |
534 |
if $card =~ /^\s+HIERARCH/ |
|
447
|
5 |
529 |
if ($keyword eq 'END') |
|
457
|
0 |
529 |
if (length $card == 0) |
|
465
|
12 |
502 |
if ($keyword eq 'COMMENT' or $keyword eq 'HISTORY' or substr($card, 8, 2) ne '= ' and not $keyword =~ /^HIERARCH/) |
|
472
|
27 |
0 |
if (not length $card <= 8) { } |
|
493
|
90 |
412 |
if (substr($rest, 0, 1) eq q[']) { } |
|
498
|
1 |
89 |
if (substr($rest, 1, 1) eq q[']) { } |
|
509
|
0 |
90 |
if $pos == -1 |
|
513
|
1 |
89 |
if (substr($rest, $pos + 1, 1) eq q[']) |
|
526
|
89 |
0 |
if ($end != -1) { } |
|
535
|
0 |
89 |
if ($value =~ /^\s+$/) { } |
|
561
|
3 |
409 |
if ($pos == 0) { } |
|
|
397 |
12 |
elsif ($pos != -1) { } |
|
574
|
397 |
0 |
if (length $rest > $pos + 1) { } |
|
587
|
409 |
3 |
if (defined $value) |
|
593
|
15 |
394 |
if ($value eq 'T') { } |
|
|
6 |
388 |
elsif ($value eq 'F') { } |
|
|
177 |
211 |
elsif ($value =~ /\.|e/) { } |
|
612
|
490 |
12 |
if (defined $comment) |
|
613
|
3 |
487 |
if ($comment =~ /^\s+$/) { } |
|
653
|
655 |
2 |
if (defined $val1 and defined $val2) { } |
|
|
2 |
0 |
elsif (not defined $val1 || defined $val2) { } |
|
655
|
0 |
655 |
if ($val1 ne $val2) |
|
672
|
0 |
219 |
if defined $val1 and not defined $val2 or defined $val2 and not defined $val1 |
|
674
|
26 |
0 |
unless defined $val1 or defined $val2 |
|
676
|
172 |
21 |
if ($type eq 'FLOAT' or $type eq 'INT') { } |
|
|
14 |
7 |
elsif ($type eq 'STRING') { } |
|
|
7 |
0 |
elsif ($type eq 'LOGICAL') { } |
|
|
0 |
0 |
elsif ($type eq 'COMMENT') { } |
|
|
0 |
0 |
elsif ($type eq 'HEADER') { } |
|
|
0 |
0 |
elsif ($type eq 'UNDEF') { } |
|
681
|
7 |
0 |
if ($val1 and $val2 or not $val1 || $val2) { } |
|
696
|
0 |
0 |
if @items1 != @items2 |
|
699
|
0 |
0 |
unless $items1[$i]->equals($items2[$i]) |
|
746
|
0 |
152 |
if (defined $type and $type eq 'HEADER') |
|
755
|
3 |
149 |
if (defined $type and $type eq 'END') { } |
|
|
0 |
149 |
elsif (defined $type and $type eq 'BLANK') { } |
|
|
10 |
139 |
elsif (defined $type and $type eq 'COMMENT') { } |
|
|
0 |
139 |
elsif (not defined $type || defined $value || defined $comment) { } |
|
763
|
10 |
0 |
defined $comment ? : |
|
778
|
0 |
139 |
unless (defined $type) |
|
784
|
106 |
33 |
if ($type eq 'INT' or $type eq 'FLOAT' or $type eq 'LOGICAL' or $type eq 'UNDEF') { } |
|
|
33 |
0 |
elsif ($type eq 'STRING') { } |
|
788
|
7 |
99 |
if ($type eq 'LOGICAL') |
|
789
|
5 |
2 |
$value && $value ne 'F' ? : |
|
793
|
2 |
104 |
unless defined $value |
|
812
|
33 |
0 |
if (defined $value) { } |
|
822
|
20 |
13 |
if (length $value < 8) |
|
823
|
18 |
2 |
unless length $value == 0 |
|
839
|
138 |
1 |
if (defined $comment and length $comment > 0) { } |
|
873
|
14 |
3 |
if (not defined $value) { } |
|
|
3 |
0 |
elsif ($value =~ /^\d+$/) { } |
|
|
0 |
0 |
elsif ($value =~ /^(-?)(\d*)(\.?)(\d*)([EeDd][-\+]?\d+)?$/) { } |