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   2941638 use PDLA::Version;
  66         216  
  66         6867  
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   1303 my $pkg = (caller())[0];
40 66     66   47983 eval <
  66     66   313  
  66     66   582  
  66     66   32994  
  66     66   221  
  66     66   592  
  66     66   44507  
  66     65   335  
  66         581  
  66         43377  
  66         273  
  66         537  
  66         30743  
  66         233  
  66         639  
  66         508  
  66         189  
  66         419  
  66         33347  
  66         212  
  66         477  
  65         39371  
  65         207  
  65         1371  
  66         4050  
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       27768 die $@ if $@;
56              
57             }
58              
59             ;# Exit with OK status
60              
61             1;