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             package PDL::LiteF;
2              
3 69     69   4444353 use strict;
  69         167  
  69         2743  
4 69     69   359 use warnings;
  69         143  
  69         11498  
5              
6             =head1 NAME
7              
8             PDL::LiteF - minimum PDL module function loader
9              
10             =head1 SYNOPSIS
11              
12             use PDL::LiteF; # Is equivalent to the following:
13              
14             use PDL::Core;
15             use PDL::Ops;
16             use PDL::Primitive;
17             use PDL::Ufunc;
18             use PDL::Basic;
19             use PDL::Slices;
20             use PDL::Bad;
21              
22             =head1 DESCRIPTION
23              
24             Loads the smallest possible set of modules for
25             PDL to work, making the functions available in
26             the current namespace. If you want something even
27             smaller see the L module.
28              
29             Note that unlike L, this does I load L or
30             L, nor any IO modules.
31              
32             =cut
33              
34             require PDL; # get the version
35              
36             our $VERSION = $PDL::VERSION;
37              
38             # Load the fundamental PDL packages, with imports
39              
40             sub import {
41 69     69   691 my $pkg = (caller())[0];
42 69     69   41418 eval <
  69     69   261  
  69     69   540  
  69     69   35543  
  69     69   276  
  69     62   778  
  69     62   49326  
  69         280  
  69         806  
  69         35690  
  69         325  
  69         790  
  69         24940  
  69         255  
  69         663  
  62         468  
  62         126  
  62         610  
  62         32780  
  62         210  
  62         640  
  69         5853  
43             package $pkg;
44              
45             use PDL::Core;
46             use PDL::Ops;
47             use PDL::Primitive;
48             use PDL::Ufunc;
49             use PDL::Basic;
50             use PDL::Slices;
51             use PDL::Bad;
52              
53             EOD
54 69 50       325136 die $@ if $@;
55             }
56              
57             1;