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/) { }
|