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              
2             =head1 NAME
3              
4             Astro::FITS::HdrTrans::CURVE - UKIRT CURVE translations
5              
6             =head1 SYNOPSIS
7              
8             use Astro::FITS::HdrTrans::CURVE;
9              
10             %gen = Astro::FITS::HdrTrans::CURVE->translate_from_FITS( %hdr );
11              
12             =head1 DESCRIPTION
13              
14             This class provides a generic set of translations that are specific to
15             the CURVE camera of the United Kingdom Infrared Telescope.
16              
17             =cut
18              
19             use 5.006;
20 10     10   12206353 use warnings;
  10         34  
21 10     10   50 use strict;
  10         14  
  10         283  
22 10     10   48 use Carp;
  10         25  
  10         192  
23 10     10   47  
  10         18  
  10         663  
24             # Inherit from UFTI.
25             use base qw/ Astro::FITS::HdrTrans::UFTI /;
26 10     10   57  
  10         25  
  10         1388  
27             use vars qw/ $VERSION /;
28 10     10   55  
  10         19  
  10         1074  
29             $VERSION = "1.65";
30              
31             # for a constant mapping, there is no FITS header, just a generic
32             # header that is constant
33             my %CONST_MAP = (
34             FILE_FORMAT => "FITS",
35             );
36              
37             # NULL mappings used to override base class implementations
38             my @NULL_MAP = qw/ /;
39              
40             # unit mapping implies that the value propogates directly
41             # to the output with only a keyword name change
42              
43             my %UNIT_MAP = (
44              
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 "CURVE".
65              
66             =cut
67              
68             return "CURVE";
69             }
70 19     19 1 49  
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;