| File | /wise/base/deliv/dev/lib/perl/WISE.pm | Statements Executed | 24 | Total Time | 0.016518 seconds |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine | |
|---|---|---|---|---|---|---|
| 7 | 7 | 7 | 0.38048 | 0.46790 | WISE:: | import |
| Line | Stmts. | Exclusive Time | Avg. | Code |
|---|---|---|---|---|
| 1 | ||||
| 2 | ||||
| 3 | # set the version | |||
| 4 | 1 | 1.0e-6 | 1.0e-6 | $WISE::VERSION = '1.00'; |
| 5 | ||||
| 6 | # Main loader of standard PDL package | |||
| 7 | ||||
| 8 | # spent 468ms (380+87.4) within WISE::import which was called 7 times, avg 66.8ms/call:
# once (379ms+85.1ms) at line 1 of (eval 3)[/wise/base/static/lib/perl5/site_perl/5.10.0/WISE/Env.pm:72] at line 72 of /wise/base/static/lib/perl5/site_perl/5.10.0/WISE/Env.pm
# once (414µs+597µs) at line 28 of /wise/base/deliv/dev/lib/perl/WISE/Ingest/HK.pm
# once (303µs+436µs) at line 22 of /wise/base/deliv/dev/lib/perl/WISE/Ingest/NAIF.pm
# once (322µs+346µs) at line 27 of /wise/base/deliv/dev/lib/perl/WISE/Ingest/GroundTrack.pm
# once (292µs+300µs) at line 1 of (eval 52)[/wise/base/static/lib/perl5/site_perl/5.10.0/WISE/Env.pm:72] at line 72 of /wise/base/static/lib/perl5/site_perl/5.10.0/WISE/Env.pm
# once (263µs+329µs) at line 33 of /wise/base/deliv/dev/lib/perl/WISE/Ingest/Seq.pm
# once (274µs+308µs) at line 27 of /wise/base/deliv/dev/lib/perl/WISE/Ingest/SurveyPlan.pm | |||
| 9 | ||||
| 10 | 21 | 0.00030 | 1.4e-5 | my $pkg = (caller())[0]; |
| 11 | 1 | 0.01621 | 0.01621 | eval <<"EOD"; # spent 2.60ms making 42 calls to Exporter::import, avg 62µs/call
# spent 276µs making 7 calls to Exporter::Lite::import, avg 39µs/call
# spent 153µs making 28 calls to import, avg 5µs/call |
| 12 | ||||
| 13 | package $pkg; | |||
| 14 | ||||
| 15 | # Load the fundamental packages | |||
| 16 | use WISE::Release; | |||
| 17 | use WISE::Time; | |||
| 18 | use WISE::Pars; | |||
| 19 | use WISE::Utils; | |||
| 20 | use WISE::IOUtils; | |||
| 21 | use WISE::IPACTbl; | |||
| 22 | use WISE::FITSIO; | |||
| 23 | #use WISE::FITSIO::PDL; | |||
| 24 | use WISE::Dumper; | |||
| 25 | use WISE::CoUtils; | |||
| 26 | use WISE::Release; | |||
| 27 | use WISE::Wrap; | |||
| 28 | ||||
| 29 | EOD | |||
| 30 | ||||
| 31 | die $@ if $@; | |||
| 32 | ||||
| 33 | } | |||
| 34 | ||||
| 35 | package WISE; | |||
| 36 | ||||
| 37 | # Exit with OK status | |||
| 38 | ||||
| 39 | 1 | 4.0e-6 | 4.0e-6 | 1; |
| 40 |