File Coverage

blib/lib/PDLx/DetachedObject.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 21 23 91.3


line stmt bran cond sub pod time code
1             # --8<--8<--8<--8<--
2             #
3             # Copyright (C) 2016 Smithsonian Astrophysical Observatory
4             #
5             # This file is part of PDLx-DetachedObject
6             #
7             # PDLx-DetachedObject is free software: you can redistribute it and/or modify
8             # it under the terms of the GNU General Public License as published by
9             # the Free Software Foundation, either version 3 of the License, or (at
10             # your option) any later version.
11             #
12             # This program is distributed in the hope that it will be useful,
13             # but WITHOUT ANY WARRANTY; without even the implied warranty of
14             # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15             # GNU General Public License for more details.
16             #
17             # You should have received a copy of the GNU General Public License
18             # along with this program. If not, see .
19             #
20             # -->8-->8-->8-->8--
21              
22             package PDLx::DetachedObject;
23              
24 2     2   203491 use strict;
  2         2  
  2         46  
25 2     2   6 use warnings;
  2         2  
  2         112  
26              
27             our $VERSION = 0.01;
28              
29 2     2   424 use parent 'PDL';
  2         220  
  2         11  
30              
31 2     2   1364 use PDL::Core '';
  2         36990  
  2         14  
32              
33 5     5 0 40994 sub initialize { return PDL->null }
34              
35             sub new {
36 1     1 0 4141 my $class = shift;
37 1         4 bless { PDL => PDL->null }, $class;
38             }
39              
40             1;
41              
42             __END__