Profile: /wise/base/deliv/dev/lib/perl/WISE/BandUtils.pm

File	/wise/base/deliv/dev/lib/perl/WISE/BandUtils.pm
Statements Executed	20
Total Time	0.000498 seconds

Subroutines — ordered by exclusive time
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
0	0	0	0	0	WISE::BandUtils::	BEGIN
0	0	0	0	0	WISE::BandUtils::	bandfwhm
0	0	0	0	0	WISE::BandUtils::	bandnum
0	0	0	0	0	WISE::BandUtils::	bandpixsz
0	0	0	0	0	WISE::BandUtils::	bandstr

Line	Stmts.	Exclusive Time	Avg.	Code
1				#! /usr/bin/env perl
2
3	3	4.1e-5	1.4e-5	use strict; # spent 11µs making 1 call to strict::import
4	3	2.9e-5	9.7e-6	use warnings; # spent 18µs making 1 call to warnings::import
5
6	3	4.2e-5	1.4e-5	use WISE::Env (cfglib=>'/wise/base/deliv/dev/lib/perl'); # spent 522µs making 1 call to WISE::Env::import, max recursion depth 1
7
8				# $Id: BandUtils.pm 5619 2009-08-21 20:30:50Z tim $
9
10				package WISE::BandUtils;
11
12	3	2.9e-5	9.7e-6	use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION); # spent 63µs making 1 call to vars::import
13
14	3	0.00033	0.00011	use Exporter::Lite; # spent 36µs making 1 call to Exporter::Lite::import
15	1	1.0e-6	1.0e-6	$VERSION = 1.00;
16	1	1.2e-5	1.2e-5	@ISA = ();
17
18	1	1.0e-6	1.0e-6	@EXPORT = ();
19	1	1.0e-6	1.0e-6	@EXPORT_OK = qw(bandfwhm bandpixsz bandnum bandstr);
20
21				sub bandfwhm {
22				my $band = bandnum(shift) or return;
23				return [6.0, 6.0, 6.46, 12.0]->[$band-1];
24				}
25
26				sub bandpixsz {
27				my $band = bandnum(shift) or return;
28				my $mapsz = shift \|\| 46.9333333/60;
29				my $npix = shift \|\| [ (1024) x 3, 512 ]->[$band-1];
30				my $pixsz = $mapsz/$npix*3600; # 2.75"
31				return wantarray ? ($pixsz,$npix) : $pixsz;
32				}
33
34				sub bandnum {
35				my $band = shift or return;
36				$band =~ s/^w//i;
37				$band =~ s/um\|microns?$//i;
38				$band += 0 if $band =~ /^\s[-+]\d+\s$/;
39				$band = {qw/1 1
40				2 2
41				3 3
42				4 4
43				3.5 1
44				4.6 2
45				12 3
46				23 4
47				/}->{$band};
48				return $band;
49				}
50
51				sub bandstr {
52				my $band = bandnum(shift) or return;
53				return [qw/w1 w2 w3 w4/]->[$band-1];
54				}
55
56	1	1.6e-5	1.6e-5	1;