File Coverage

blib/lib/Astro/FITS/HdrTrans/CURVE.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 22 22 100.0


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