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   3339337 use PDL::Version;
  83         267  
  83         8698  
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   1142 my $pkg = (caller())[0];
40 83     83   59938 eval <
  83     83   334  
  83     83   734  
  83     83   42671  
  83     83   304  
  83     83   749  
  83     83   57479  
  83     82   403  
  83         691  
  83         57105  
  83         318  
  83         608  
  83         39654  
  83         315  
  83         782  
  83         669  
  83         191  
  83         528  
  83         44055  
  83         301  
  83         618  
  82         51280  
  82         239  
  82         1754  
  83         5266  
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       29631 die $@ if $@;
56              
57             }
58              
59             ;# Exit with OK status
60              
61             1;