File Coverage

blib/lib/PDL/Lite.pm
Criterion Covered Total %
statement 27 27 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod n/a
total 36 36 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 SYNOPSIS
6              
7             use PDL::Lite; # Is equivalent to the following:
8              
9             use PDL::Core '';
10             use PDL::Ops '';
11             use PDL::Primitive '';
12             use PDL::Ufunc '';
13             use PDL::Basic '';
14             use PDL::Slices '';
15             use PDL::Bad '';
16              
17             =head1 DESCRIPTION
18              
19             Loads the smallest possible set of modules for
20             PDL to work, importing only those functions always defined by
21             L) into the current namespace
22             (C, C and C).
23             This is the absolute minimum set for PDL.
24              
25             Access to other functions is by method syntax, viz:
26              
27             $x = PDL->pdl(1, 2, 3, 4, 5);
28             $x->wibble(42);
29              
30             Note that unlike L, this does I load L or
31             L, nor any IO modules.
32              
33             =cut
34              
35             package PDL::Lite;
36              
37 58     58   1057 use strict;
  58         131  
  58         2674  
38 58     58   380 use warnings;
  58         140  
  58         3786  
39              
40 58     58   13764 use PDL::Core qw(pdl piddle barf null);
  58         158  
  58         610  
41 58     58   12770 use PDL::Ops '';
  58         529  
  58         717  
42 58     58   16473 use PDL::Primitive '';
  58         206  
  58         518  
43 58     58   13777 use PDL::Ufunc '';
  58         140  
  58         671  
44 58     58   9017 use PDL::Basic '';
  58         159  
  58         444  
45 58     58   400 use PDL::Slices '';
  58         179  
  58         530  
46 58     58   11163 use PDL::Bad '';
  58         143  
  58         486  
47             require PDL; # for VERSION
48              
49             our $VERSION = $PDL::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;