File Coverage

blib/lib/Astro/FITS/HdrTrans/GMOS.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 26 26 100.0


line stmt bran cond sub pod time code
1             package Astro::FITS::HdrTrans::GMOS;
2              
3             =head1 NAME
4              
5             Astro::FITS::HdrTrans::GMOS - Gemini GMOS translations
6              
7             =head1 SYNOPSIS
8              
9             use Astro::FITS::HdrTrans::GMOS;
10              
11             %gen = Astro::FITS::HdrTrans::GMOS->translate_from_FITS( %hdr );
12              
13             =head1 DESCRIPTION
14              
15             This class provides a generic set of translations that are specific to
16             GMOS on the Gemini Observatory.
17              
18             =cut
19              
20 10     10   37319616 use 5.006;
  10         38  
21 10     10   65 use warnings;
  10         29  
  10         444  
22 10     10   90 use strict;
  10         28  
  10         281  
23 10     10   62 use Carp;
  10         22  
  10         868  
24              
25             # Inherit from GEMINI
26 10     10   77 use base qw/ Astro::FITS::HdrTrans::GEMINI /;
  10         22  
  10         5091  
27              
28 10     10   70 use vars qw/ $VERSION /;
  10         21  
  10         1483  
29              
30             $VERSION = "1.64";
31              
32             # for a constant mapping, there is no FITS header, just a generic
33             # header that is constant
34             my %CONST_MAP = (
35             OBSERVATION_MODE => 'imaging',
36             );
37              
38             # NULL mappings used to override base class implementations
39             my @NULL_MAP = qw/ /;
40              
41             # unit mapping implies that the value propogates directly
42             # to the output with only a keyword name change
43              
44             my %UNIT_MAP = (
45             );
46              
47              
48             # Create the translation methods
49             __PACKAGE__->_generate_lookup_methods( \%CONST_MAP, \%UNIT_MAP, \@NULL_MAP );
50              
51             =head1 METHODS
52              
53             =over 4
54              
55             =item B<this_instrument>
56              
57             The name of the instrument required to match (case insensitively)
58             against the INSTRUME/INSTRUMENT keyword to allow this class to
59             translate the specified headers. Called by the default
60             C<can_translate> method.
61              
62             $inst = $class->this_instrument();
63              
64             Returns "GMOS".
65              
66             =cut
67              
68             sub this_instrument {
69 20     20 1 89 return qr/^GMOS/;
70             }
71              
72             =back
73              
74             =head1 SEE ALSO
75              
76             C<Astro::FITS::HdrTrans>, C<Astro::FITS::HdrTrans::UKIRT>.
77              
78             =head1 AUTHOR
79              
80             Brad Cavanagh E<lt>b.cavanagh@jach.hawaii.eduE<gt>,
81             Tim Jenness E<lt>t.jenness@jach.hawaii.eduE<gt>.
82              
83             =head1 COPYRIGHT
84              
85             Copyright (C) 2003-2005 Particle Physics and Astronomy Research Council.
86             All Rights Reserved.
87              
88             This program is free software; you can redistribute it and/or modify it under
89             the terms of the GNU General Public License as published by the Free Software
90             Foundation; either Version 2 of the License, or (at your option) any later
91             version.
92              
93             This program is distributed in the hope that it will be useful,but WITHOUT ANY
94             WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
95             PARTICULAR PURPOSE. See the GNU General Public License for more details.
96              
97             You should have received a copy of the GNU General Public License along with
98             this program; if not, write to the Free Software Foundation, Inc., 59 Temple
99             Place, Suite 330, Boston, MA 02111-1307, USA.
100              
101             =cut
102              
103             1;