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 83     83   3573085 use PDL::Version;
  83         271  
  83         8886  
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 83     83   1326 my $pkg = (caller())[0];
40 83     83   61780 eval <
  83     83   369  
  83     83   800  
  83     83   45617  
  83     83   286  
  83     83   844  
  83     83   60255  
  83     82   401  
  83         744  
  83         60403  
  83         383  
  83         653  
  83         42087  
  83         315  
  83         820  
  83         723  
  83         203  
  83         586  
  83         46602  
  83         289  
  83         613  
  82         53777  
  82         263  
  82         1794  
  83         5060  
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 83 50       31446 die $@ if $@;
56              
57             }
58              
59             ;# Exit with OK status
60              
61             1;