| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
=head1 NAME |
|
2
|
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
PDLA::LiteF - minimum PDLA module function loader |
|
4
|
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
=head1 DESCRIPTION |
|
6
|
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
Loads the smallest possible set of modules for |
|
8
|
|
|
|
|
|
|
PDLA to work, making the functions available in |
|
9
|
|
|
|
|
|
|
the current namespace. If you want something even |
|
10
|
|
|
|
|
|
|
smaller see the L module. |
|
11
|
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
=head1 SYNOPSIS |
|
13
|
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
use PDLA::LiteF; # Is equivalent to the following: |
|
15
|
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
use PDLA::Core; |
|
17
|
|
|
|
|
|
|
use PDLA::Ops; |
|
18
|
|
|
|
|
|
|
use PDLA::Primitive; |
|
19
|
|
|
|
|
|
|
use PDLA::Ufunc; |
|
20
|
|
|
|
|
|
|
use PDLA::Basic; |
|
21
|
|
|
|
|
|
|
use PDLA::Slices; |
|
22
|
|
|
|
|
|
|
use PDLA::Bad; |
|
23
|
|
|
|
|
|
|
use PDLA::Version; |
|
24
|
|
|
|
|
|
|
use PDLA::Lvalue; |
|
25
|
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
=cut |
|
27
|
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
# get the version: |
|
29
|
66
|
|
|
66
|
|
2941638
|
use PDLA::Version; |
|
|
66
|
|
|
|
|
216
|
|
|
|
66
|
|
|
|
|
6867
|
|
|
30
|
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
package PDLA::LiteF; |
|
32
|
|
|
|
|
|
|
$VERSION = $PDLA::Version::VERSION; |
|
33
|
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
# Load the fundamental PDLA packages, with imports |
|
36
|
|
|
|
|
|
|
|
|
37
|
|
|
|
|
|
|
sub PDLA::LiteF::import { |
|
38
|
|
|
|
|
|
|
|
|
39
|
66
|
|
|
66
|
|
1303
|
my $pkg = (caller())[0]; |
|
40
|
66
|
|
|
66
|
|
47983
|
eval <
|
|
|
66
|
|
|
66
|
|
313
|
|
|
|
66
|
|
|
66
|
|
582
|
|
|
|
66
|
|
|
66
|
|
32994
|
|
|
|
66
|
|
|
66
|
|
221
|
|
|
|
66
|
|
|
66
|
|
592
|
|
|
|
66
|
|
|
66
|
|
44507
|
|
|
|
66
|
|
|
65
|
|
335
|
|
|
|
66
|
|
|
|
|
581
|
|
|
|
66
|
|
|
|
|
43377
|
|
|
|
66
|
|
|
|
|
273
|
|
|
|
66
|
|
|
|
|
537
|
|
|
|
66
|
|
|
|
|
30743
|
|
|
|
66
|
|
|
|
|
233
|
|
|
|
66
|
|
|
|
|
639
|
|
|
|
66
|
|
|
|
|
508
|
|
|
|
66
|
|
|
|
|
189
|
|
|
|
66
|
|
|
|
|
419
|
|
|
|
66
|
|
|
|
|
33347
|
|
|
|
66
|
|
|
|
|
212
|
|
|
|
66
|
|
|
|
|
477
|
|
|
|
65
|
|
|
|
|
39371
|
|
|
|
65
|
|
|
|
|
207
|
|
|
|
65
|
|
|
|
|
1371
|
|
|
|
66
|
|
|
|
|
4050
|
|
|
41
|
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
package $pkg; |
|
43
|
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
use PDLA::Core; |
|
45
|
|
|
|
|
|
|
use PDLA::Ops; |
|
46
|
|
|
|
|
|
|
use PDLA::Primitive; |
|
47
|
|
|
|
|
|
|
use PDLA::Ufunc; |
|
48
|
|
|
|
|
|
|
use PDLA::Basic; |
|
49
|
|
|
|
|
|
|
use PDLA::Slices; |
|
50
|
|
|
|
|
|
|
use PDLA::Bad; |
|
51
|
|
|
|
|
|
|
use PDLA::Lvalue; |
|
52
|
|
|
|
|
|
|
|
|
53
|
|
|
|
|
|
|
EOD |
|
54
|
|
|
|
|
|
|
|
|
55
|
66
|
50
|
|
|
|
27768
|
die $@ if $@; |
|
56
|
|
|
|
|
|
|
|
|
57
|
|
|
|
|
|
|
} |
|
58
|
|
|
|
|
|
|
|
|
59
|
|
|
|
|
|
|
;# Exit with OK status |
|
60
|
|
|
|
|
|
|
|
|
61
|
|
|
|
|
|
|
1; |