Branch Coverage

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


line true false branch
245 0 36 if (@_)
283 0 2 ref $new[0] ? :
348 0 0 if (exists $options{'class'} and defined $options{'class'} and ref $options{'class'} eq "ARRAY")
355 1 19 if (exists $options{'prefix'} and defined $options{'prefix'})
361 0 20 if (exists $options{'frameset'} and defined $options{'frameset'})
417 0 0 if (exists $options{'class'} and defined $options{'class'} and ref $options{'class'} eq "ARRAY")
425 1 14 if (exists $options{'prefix'} and defined $options{'prefix'}) { }
439 0 30 if (exists $stripped_header{$h} and defined $stripped_header{$h} and not UNIVERSAL::isa($stripped_header{$h}, "Time::Piece"))
489 36 0 unless (defined $classes and @$classes)
491 16 20 if (exists $hdr->{'_TRANSLATION_CLASS'} and defined $hdr->{'_TRANSLATION_CLASS'})
494 16 0 if ($loaded)
495 16 0 if ($class->can("can_translate") and $class->can_translate($hdr))
513 0 660 if $Astro::FITS::HdrTrans::DEBUG
517 0 660 if ($@)
518 0 0 if $Astro::FITS::HdrTrans::DEBUG
520 0 660 if $@
521 660 0 if ($class->can('can_translate')) { }
522 20 640 if ($class->can_translate($hdr))
523 0 20 if $Astro::FITS::HdrTrans::DEBUG
531 0 20 if (scalar keys %result > 1)
536 0 20 if (scalar keys %result == 0)
538 0 0 $fromfits ? :
565 14 2 unless $prefix
569 2 38 if ($key eq '_TRANSLATION_CLASS') { }
36 2 elsif ($key =~ /^$prefix/) { }