File Coverage

blib/lib/PDLA/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             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 66     66   2765829 use PDLA::Version;
  66         206  
  66         6801  
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 66     66   1025 my $pkg = (caller())[0];
40 66     66   45623 eval <
  66     66   292  
  66     66   566  
  66     66   31515  
  66     66   208  
  66     66   579  
  66     66   41434  
  66     65   270  
  66         516  
  66         41364  
  66         248  
  66         475  
  66         29225  
  66         231  
  66         655  
  66         477  
  66         140  
  66         392  
  66         31801  
  66         215  
  66         436  
  65         38089  
  65         216  
  65         1330  
  66         3763  
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 66 50       26078 die $@ if $@;
56              
57             }
58              
59             ;# Exit with OK status
60              
61             1;