← Index
Performance Profile   « block view • line view • sub view »
For /wise/base/deliv/dev/bin/getfix
  Run on Thu May 20 15:30:03 2010
Reported on Thu May 20 16:25:22 2010

File/wise/base/deliv/dev/lib/perl/WISE.pm
Statements Executed6
Total Time0.006583 seconds

Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1110.286090.36279WISE::import

LineStmts.Exclusive
Time
Avg.Code
1
2
3# set the version
411.0e-61.0e-6$WISE::VERSION = '1.00';
5
6# Main loader of standard PDL package
7
8sub WISE::import {
9
1036.3e-52.1e-5my $pkg = (caller())[0];
1110.006510.00651eval <<"EOD";
# spent 354µs making 6 calls to Exporter::import, avg 59µs/call # spent 30µs making 1 call to Exporter::Lite::import # spent 21µs making 4 calls to import, avg 5µs/call
12
13package $pkg;
14
15# Load the fundamental packages
16use WISE::Release;
17use WISE::Time;
18use WISE::Pars;
19use WISE::Utils;
20use WISE::IOUtils;
21use WISE::IPACTbl;
22use WISE::FITSIO;
23#use WISE::FITSIO::PDL;
24use WISE::Dumper;
25use WISE::CoUtils;
26use WISE::Release;
27use WISE::Wrap;
28
29EOD
30
31die $@ if $@;
32
33}
34
35package WISE;
36
37# Exit with OK status
38
3914.0e-64.0e-61;
40