File Coverage

blib/lib/PDLA/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             PDLA::Lite - minimum PDLA module OO loader
4              
5             =head1 DESCRIPTION
6              
7             Loads the smallest possible set of modules for
8             PDLA 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 PDLA.
12              
13             Access to other functions is by method syntax, viz:
14              
15             $x = PDLA->pdl(1, 2, 3, 4, 5);
16             $x->wibble(42);
17              
18             =head1 SYNOPSIS
19              
20             use PDLA::Lite; # Is equivalent to the following:
21              
22             use PDLA::Core '';
23             use PDLA::Ops '';
24             use PDLA::Primitive '';
25             use PDLA::Ufunc '';
26             use PDLA::Basic '';
27             use PDLA::Slices '';
28             use PDLA::Bad '';
29             use PDLA::Version;
30             use PDLA::Lvalue;
31              
32             =cut
33              
34             package PDLA::Lite;
35              
36 5     5   135215 use strict;
  5         25  
  5         143  
37 5     5   23 use warnings;
  5         9  
  5         160  
38              
39 5     5   2165 use PDLA::Core qw(pdl piddle barf null);
  5         13  
  5         41  
40 5     5   1462 use PDLA::Ops '';
  5         9  
  5         42  
41 5     5   1959 use PDLA::Primitive '';
  5         14  
  5         35  
42 5     5   2020 use PDLA::Ufunc '';
  5         14  
  5         32  
43 5     5   1399 use PDLA::Basic '';
  5         9  
  5         37  
44 5     5   31 use PDLA::Slices '';
  5         10  
  5         25  
45 5     5   1457 use PDLA::Bad '';
  5         18  
  5         35  
46 5     5   30 use PDLA::Version ; # Doesn't export anything - no need for ''
  5         18  
  5         120  
47 5     5   1864 use PDLA::Lvalue;
  5         13  
  5         477  
48              
49             our $VERSION = $PDLA::Version::VERSION;
50              
51             our @ISA = qw( PDLA::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;