1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
=head1 NAME
PDL - Main loader of PDL default modules
=head1 DESCRIPTION
Loads the default set of modules associated
with PDL, making the functions available in
the current namespace. See also C<PDL::Lite>,
C<PDL::LiteF> if start-up time becomes an
issue.
=head1 SYNOPSIS
use PDL; # Is equivalent to the following:
use PDL::Core;
use PDL::Ops;
use PDL::Primitive;
use PDL::Basic;
use PDL::Slices;
use PDL::Version;
use PDL::IO::Misc;
use PDL::Graphics::PGPLOT;
=cut
# get the version:
use PDL::Version;
$PDL::VERSION = $PDL::Version::VERSION;
# Main loader of standard PDL package
sub PDL::import {
my $pkg = (caller())[0];
eval <<"EOD";
package $pkg;
# Load the fundamental packages
use PDL::Core;
use PDL::Ops;
use PDL::Primitive;
use PDL::Basic;
use PDL::Slices;
# Load these for TPJ compatibility
use PDL::IO::Misc; # Misc IO (Ascii/FITS)
use PDL::Graphics::PGPLOT; # PGPLOT graphics
EOD
die $@ if $@;
}
;# Exit with OK status
1;
|
