File Coverage

blib/lib/PDL/LiteF.pm
Criterion Covered Total %
statement 30 30 100.0
branch 1 2 50.0
condition n/a
subroutine 10 10 100.0
pod n/a
total 41 42 97.6


line stmt bran cond sub pod time code
1             =head1 NAME
2              
3             PDL::LiteF - minimum PDL module function loader
4              
5             =head1 DESCRIPTION
6              
7             Loads the smallest possible set of modules for
8             PDL 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 PDL::LiteF; # Is equivalent to the following:
15              
16             use PDL::Core;
17             use PDL::Ops;
18             use PDL::Primitive;
19             use PDL::Ufunc;
20             use PDL::Basic;
21             use PDL::Slices;
22             use PDL::Bad;
23             use PDL::Version;
24             use PDL::Lvalue;
25              
26             =cut
27              
28             # get the version:
29 84     84   3595702 use PDL::Version;
  84         271  
  84         9433  
30              
31             package PDL::LiteF;
32             $VERSION = $PDL::Version::VERSION;
33              
34              
35             # Load the fundamental PDL packages, with imports
36              
37             sub PDL::LiteF::import {
38              
39 84     84   1450 my $pkg = (caller())[0];
40 84     84   60932 eval <
  84     84   350  
  84     84   797  
  84     84   44882  
  84     84   288  
  84     84   817  
  84     84   59720  
  84     83   375  
  84         741  
  84         60014  
  84         352  
  84         780  
  84         42944  
  84         321  
  84         909  
  84         696  
  84         204  
  84         565  
  84         48190  
  84         279  
  84         647  
  83         55252  
  83         267  
  83         1894  
  84         5119  
41              
42             package $pkg;
43              
44             use PDL::Core;
45             use PDL::Ops;
46             use PDL::Primitive;
47             use PDL::Ufunc;
48             use PDL::Basic;
49             use PDL::Slices;
50             use PDL::Bad;
51             use PDL::Lvalue;
52              
53             EOD
54              
55 84 50       32178 die $@ if $@;
56              
57             }
58              
59             ;# Exit with OK status
60              
61             1;