File Coverage

blib/lib/Astro/FITS/HdrTrans/CURVE.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::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   16309402 use 5.006;
  10         56  
21 10     10   62 use warnings;
  10         23  
  10         386  
22 10     10   68 use strict;
  10         29  
  10         244  
23 10     10   71 use Carp;
  10         35  
  10         873  
24              
25             # Inherit from UFTI.
26 10     10   82 use base qw/ Astro::FITS::HdrTrans::UFTI /;
  10         35  
  10         2012  
27              
28 10     10   79 use vars qw/ $VERSION /;
  10         21  
  10         1451  
29              
30             $VERSION = "1.63";
31              
32             # for a constant mapping, there is no FITS header, just a generic
33             # header that is constant
34             my %CONST_MAP = (
35             FILE_FORMAT => "FITS",
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              
49             # Create the translation methods
50             __PACKAGE__->_generate_lookup_methods( \%CONST_MAP, \%UNIT_MAP, \@NULL_MAP );
51              
52             =head1 METHODS
53              
54             =over 4
55              
56             =item B<this_instrument>
57              
58             The name of the instrument required to match (case insensitively)
59             against the INSTRUME/INSTRUMENT keyword to allow this class to
60             translate the specified headers. Called by the default
61             C<can_translate> method.
62              
63             $inst = $class->this_instrument();
64              
65             Returns "CURVE".
66              
67             =cut
68              
69             sub this_instrument {
70 19     19 1 49 return "CURVE";
71             }
72              
73             =back
74              
75             =head1 SEE ALSO
76              
77             C<Astro::FITS::HdrTrans>, C<Astro::FITS::HdrTrans::UKIRT>.
78              
79             =head1 AUTHOR
80              
81             Malcolm J. Currie E<lt>mjc@star.rl.ac.ukE<gt>
82             Brad Cavanagh E<lt>b.cavanagh@jach.hawaii.eduE<gt>,
83             Tim Jenness E<lt>t.jenness@jach.hawaii.eduE<gt>.
84              
85             =head1 COPYRIGHT
86              
87             Copyright (C) 2008 Science and Technology Facilities Council.
88             Copyright (C) 2003-2007 Particle Physics and Astronomy Research Council.
89             All Rights Reserved.
90              
91             This program is free software; you can redistribute it and/or modify it under
92             the terms of the GNU General Public License as published by the Free Software
93             Foundation; either Version 2 of the License, or (at your option) any later
94             version.
95              
96             This program is distributed in the hope that it will be useful,but WITHOUT ANY
97             WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
98             PARTICULAR PURPOSE. See the GNU General Public License for more details.
99              
100             You should have received a copy of the GNU General Public License along with
101             this program; if not, write to the Free Software Foundation, Inc., 59 Temple
102             Place, Suite 330, Boston, MA 02111-1307, USA.
103              
104             =cut
105              
106             1;