Branch Coverage

blib/lib/Astro/FITS/HdrTrans.pm
Criterion Covered Total %
branch 28 50 56.0


line true false branch
240 0 36 if (@_)
278 0 2 ref $new[0] ? :
343 0 0 if (exists $options{'class'} and defined $options{'class'} and ref $options{'class'} eq 'ARRAY')
350 1 19 if (exists $options{'prefix'} and defined $options{'prefix'})
356 0 20 if (exists $options{'frameset'} and defined $options{'frameset'})
412 0 0 if (exists $options{'class'} and defined $options{'class'} and ref $options{'class'} eq 'ARRAY')
420 1 14 if (exists $options{'prefix'} and defined $options{'prefix'}) { }
434 0 30 if (exists $stripped_header{$h} and defined $stripped_header{$h} and not UNIVERSAL::isa($stripped_header{$h}, 'Time::Piece'))
484 36 0 unless (defined $classes and @$classes)
486 16 20 if (exists $hdr->{'_TRANSLATION_CLASS'} and defined $hdr->{'_TRANSLATION_CLASS'})
489 16 0 if ($loaded)
490 16 0 if ($class->can('can_translate') and $class->can_translate($hdr))
508 0 660 if $Astro::FITS::HdrTrans::DEBUG
512 0 660 if ($@)
513 0 0 if $Astro::FITS::HdrTrans::DEBUG
515 0 660 if $@
516 660 0 if ($class->can('can_translate')) { }
517 20 640 if ($class->can_translate($hdr))
518 0 20 if $Astro::FITS::HdrTrans::DEBUG
526 0 20 if (scalar keys %result > 1)
531 0 20 if (scalar keys %result == 0)
533 0 0 $fromfits ? :
560 14 2 unless $prefix
564 2 38 if ($key eq '_TRANSLATION_CLASS') { }
36 2 elsif ($key =~ /^$prefix/) { }