File Coverage

blib/lib/PDLA/LiteF.pm
Criterion Covered Total %
statement 7 9 77.7
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 11 14 78.5


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 77     77   1126559 use PDLA::Version;
  77         220  
  77         9616  
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 77     77   1127 my $pkg = (caller())[0];
40 77     77   71494 eval <
  0         0  
  0         0  
  77         5867  
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 77 50       173834 die $@ if $@;
56              
57             }
58              
59             ;# Exit with OK status
60              
61             1;