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   2856666 use PDLA::Version;
  66         213  
  66         6565  
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   1114 my $pkg = (caller())[0];
40 66     66   45978 eval <
  66     66   266  
  66     66   644  
  66     66   33217  
  66     66   211  
  66     66   578  
  66     66   42636  
  66     65   275  
  66         567  
  66         43753  
  66         237  
  66         495  
  66         29932  
  66         242  
  66         618  
  66         566  
  66         155  
  66         434  
  66         32622  
  66         222  
  66         449  
  65         38581  
  65         199  
  65         1305  
  66         3929  
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       28106 die $@ if $@;
56              
57             }
58              
59             ;# Exit with OK status
60              
61             1;