File Coverage

blib/lib/PDL/Lite.pm
Criterion Covered Total %
statement 33 33 100.0
branch n/a
condition n/a
subroutine 11 11 100.0
pod n/a
total 44 44 100.0


line stmt bran cond sub pod time code
1             =head1 NAME
2              
3             PDL::Lite - minimum PDL module OO loader
4              
5             =head1 DESCRIPTION
6              
7             Loads the smallest possible set of modules for
8             PDL to work, importing only those functions always defined by
9             L) into the current namespace
10             (C, C, C and C).
11             This is the absolute minimum set for PDL.
12              
13             Access to other functions is by method syntax, viz:
14              
15             $x = PDL->pdl(1, 2, 3, 4, 5);
16             $x->wibble(42);
17              
18             =head1 SYNOPSIS
19              
20             use PDL::Lite; # Is equivalent to the following:
21              
22             use PDL::Core '';
23             use PDL::Ops '';
24             use PDL::Primitive '';
25             use PDL::Ufunc '';
26             use PDL::Basic '';
27             use PDL::Slices '';
28             use PDL::Bad '';
29             use PDL::Version;
30             use PDL::Lvalue;
31              
32             =cut
33              
34             package PDL::Lite;
35              
36 5     5   143650 use strict;
  5         29  
  5         161  
37 5     5   25 use warnings;
  5         12  
  5         189  
38              
39 5     5   2431 use PDL::Core qw(pdl piddle barf null);
  5         21  
  5         55  
40 5     5   1735 use PDL::Ops '';
  5         11  
  5         41  
41 5     5   2333 use PDL::Primitive '';
  5         23  
  5         38  
42 5     5   2415 use PDL::Ufunc '';
  5         13  
  5         63  
43 5     5   1641 use PDL::Basic '';
  5         13  
  5         44  
44 5     5   42 use PDL::Slices '';
  5         15  
  5         40  
45 5     5   1829 use PDL::Bad '';
  5         13  
  5         47  
46 5     5   35 use PDL::Version ; # Doesn't export anything - no need for ''
  5         26  
  5         181  
47 5     5   2109 use PDL::Lvalue;
  5         13  
  5         597  
48              
49             our $VERSION = $PDL::Version::VERSION;
50              
51             our @ISA = qw( PDL::Exporter );
52              
53             our @EXPORT = qw( piddle pdl null barf ); # Only stuff always exported!
54             our %EXPORT_TAGS = (
55             Func => [@EXPORT],
56             );
57              
58              
59             ;# Exit with OK status
60              
61             1;