Condition Coverage

blib/lib/Astro/FITS/Header.pm
Criterion Covered Total %
condition 79 120 65.8


and 3 conditions

line !l l&&!r l&&r condition
293 22 0 353 exists ${$$self{'LOOKUP'};}{$keyword} and defined ${$$self{'LOOKUP'};}{$keyword}
513 25 0 3 @{$$self{'HEADER'};} == 0 and $offset < 0
623 2 0 32 exists $args{'Cards'} and defined $args{'Cards'}
2 0 0 exists $args{'Items'} and defined $args{'Items'}
0 0 2 exists $args{'Hash'} and defined $args{'Hash'}
0 0 0 defined $$self{'HEADER'} && @{$$self{'HEADER'};}
649 2 0 0 $k eq 'SUBHEADERS' and ref $args{'Hash'}{$k} eq 'ARRAY'
2 0 0 $k eq 'SUBHEADERS' and ref $args{'Hash'}{$k} eq 'ARRAY' and ref $args{'Hash'}{$k}[0] eq 'HASH'
799 6 168 0 $match == @items and $match == $nhdr || $opt{'merge_unique'}
955 2792 0 70 exists ${$$self{'LOOKUP'};}{$key} && defined ${$$self{'LOOKUP'};}{$key}
1199 1 4 10 defined $item && defined $item->type
1200 5 3 7 $t_ok and $item->type eq 'COMMENT'
1205 164 8 2 $t_ok and $item->type eq 'END'
160 12 0 defined $item and $key eq 'END'
1247 164 1 7 $t_ok and $item->type eq 'COMMENT'
1252 164 8 0 $t_ok && $item->type eq 'HEADER'
1267 170 0 2 $self->tiereturnsref and scalar @out > 1
1305 0 5 16 defined $value and not ref $value
5 6 10 defined $value and not ref $value and not $keyword =~ /(_COMMENT$)|(^(COMMENT|HISTORY)$)/
11 8 2 defined $value and not ref $value and not $keyword =~ /(_COMMENT$)|(^(COMMENT|HISTORY)$)/ and $value =~ s[\s*(?
1317 0 5 16 defined $value and not ref $value
1334 2 0 1 defined $tied and UNIVERSAL::isa($tied, 'Astro::FITS::Header')
1488 0 3 0 defined $type and $type eq 'COMMENT' || $type eq 'BLANK'
1550 3 1 1 scalar @{$self->subhdrs;} and not $$self{'SEENKEY'}{'SUBHEADERS'}
1624 0 0 5 $index >= 0 and $index <= $#$arr
1731 1 0 3 defined $tied and UNIVERSAL::isa($tied, 'Astro::FITS::Header')

or 3 conditions

line l !l&&r !l&&!r condition
57 18 16 0 ref $proto || $proto
751 0 0 369 not defined $type or $type eq 'BLANK'
799 162 2 4 $match == $nhdr || $opt{'merge_unique'}
1197 6 6 162 $wantcomment or $key =~ /^(COMMENT)|(HISTORY)$/
12 3 159 $wantcomment or $key =~ /^(COMMENT)|(HISTORY)$/ or $key =~ /^END$/
1205 2 0 172 $t_ok and $item->type eq 'END' or defined $item and $key eq 'END'
1254 11 0 162 UNIVERSAL::isa($hdr, 'Astro::FITS::Header') or $ishdr
1324 1 0 16 ref $value eq 'ARRAY' or length $value > 70
1 2 14 ref $value eq 'ARRAY' or length $value > 70 or $value =~ /\n/s
1385 1 0 0 @index != 1 or $index[0] != $#{$self->allitems;}
1405 1 0 0 @index != 1 or $index[0] != 0
1459 3 4 8 $#values > 0 || ref $value
1488 1 0 2 $type eq 'COMMENT' || $type eq 'BLANK'
1658 0 0 0 $index > $#$arr or $index < 0