| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
# [[[ HEADER ]]] |
|
2
|
|
|
|
|
|
|
package RPerl::DataStructure; |
|
3
|
7
|
|
|
7
|
|
1604
|
use strict; |
|
|
7
|
|
|
|
|
17
|
|
|
|
7
|
|
|
|
|
157
|
|
|
4
|
7
|
|
|
7
|
|
29
|
use warnings; |
|
|
7
|
|
|
|
|
12
|
|
|
|
7
|
|
|
|
|
126
|
|
|
5
|
7
|
|
|
7
|
|
29
|
use RPerl::AfterSubclass; |
|
|
7
|
|
|
|
|
13
|
|
|
|
7
|
|
|
|
|
816
|
|
|
6
|
|
|
|
|
|
|
our $VERSION = 0.002_000; |
|
7
|
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
# [[[ OO INHERITANCE ]]] |
|
9
|
|
|
|
|
|
|
# DEV NOTE: RPerl Data Structures are RPerl Data Types, |
|
10
|
|
|
|
|
|
|
# because we have explicitly implemented each RPerl Data Structure to be usable as a native, compound Data Type; |
|
11
|
|
|
|
|
|
|
# other Data Structures, such as MathPerl::DataStructure::*, are not implemented as native RPerl Data Types, |
|
12
|
|
|
|
|
|
|
# instead they are left as RPerl Classes |
|
13
|
7
|
|
|
7
|
|
42
|
use parent qw(RPerl::DataType); |
|
|
7
|
|
|
|
|
12
|
|
|
|
7
|
|
|
|
|
33
|
|
|
14
|
7
|
|
|
7
|
|
392
|
use RPerl::DataType; |
|
|
7
|
|
|
|
|
15
|
|
|
|
7
|
|
|
|
|
121
|
|
|
15
|
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
1; # end of package |