line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# [[[ HEADER ]]] |
2
|
|
|
|
|
|
|
## no critic qw(Capitalization ProhibitMultiplePackages ProhibitReusedNames) # SYSTEM DEFAULT 3: allow multiple & lower case package names |
3
|
|
|
|
|
|
|
package # hide from PAUSE indexing |
4
|
|
|
|
|
|
|
rperltypesconv; |
5
|
7
|
|
|
7
|
|
391
|
use strict; |
|
7
|
|
|
|
|
17
|
|
|
7
|
|
|
|
|
205
|
|
6
|
7
|
|
|
7
|
|
35
|
use warnings; |
|
7
|
|
|
|
|
14
|
|
|
7
|
|
|
|
|
261
|
|
7
|
|
|
|
|
|
|
our $VERSION = 0.004_000; |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
# DEV NOTE, CORRELATION #rp012: type system includes, hard-copies in rperltypes.pm & rperltypesconv.pm & Class.pm |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
# [[[ DATA TYPES ]]] |
12
|
|
|
|
|
|
|
#use RPerl::DataType::Void; |
13
|
7
|
|
|
7
|
|
44
|
use RPerl::DataType::Boolean; |
|
7
|
|
|
|
|
19
|
|
|
7
|
|
|
|
|
499
|
|
14
|
7
|
|
|
7
|
|
44
|
use RPerl::DataType::UnsignedInteger; |
|
7
|
|
|
|
|
17
|
|
|
7
|
|
|
|
|
444
|
|
15
|
7
|
|
|
7
|
|
39
|
use RPerl::DataType::Integer; |
|
7
|
|
|
|
|
16
|
|
|
7
|
|
|
|
|
403
|
|
16
|
7
|
|
|
7
|
|
43
|
use RPerl::DataType::Number; |
|
7
|
|
|
|
|
15
|
|
|
7
|
|
|
|
|
430
|
|
17
|
7
|
|
|
7
|
|
43
|
use RPerl::DataType::Character; |
|
7
|
|
|
|
|
15
|
|
|
7
|
|
|
|
|
403
|
|
18
|
7
|
|
|
7
|
|
43
|
use RPerl::DataType::String; |
|
7
|
|
|
|
|
18
|
|
|
7
|
|
|
|
|
464
|
|
19
|
|
|
|
|
|
|
#use RPerl::DataType::Scalar; |
20
|
|
|
|
|
|
|
#use RPerl::DataType::Unknown; |
21
|
|
|
|
|
|
|
#use RPerl::DataType::FileHandle; |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
# [[[ DATA STRUCTURES ]]] |
24
|
7
|
|
|
7
|
|
51
|
use RPerl::DataStructure::Array; |
|
7
|
|
|
|
|
19
|
|
|
7
|
|
|
|
|
1220
|
|
25
|
7
|
|
|
7
|
|
44
|
use RPerl::DataStructure::Array::SubTypes; |
|
7
|
|
|
|
|
16
|
|
|
7
|
|
|
|
|
473
|
|
26
|
7
|
|
|
7
|
|
42
|
use RPerl::DataStructure::Array::Reference; |
|
7
|
|
|
|
|
16
|
|
|
7
|
|
|
|
|
192
|
|
27
|
7
|
|
|
7
|
|
34
|
use RPerl::DataStructure::Hash; |
|
7
|
|
|
|
|
21
|
|
|
7
|
|
|
|
|
764
|
|
28
|
7
|
|
|
7
|
|
43
|
use RPerl::DataStructure::Hash::SubTypes; |
|
7
|
|
|
|
|
16
|
|
|
7
|
|
|
|
|
444
|
|
29
|
7
|
|
|
7
|
|
69
|
use RPerl::DataStructure::Hash::Reference; |
|
7
|
|
|
|
|
16
|
|
|
7
|
|
|
|
|
193
|
|
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
# DEV NOTE, CORRELATION #rp008: use Exporter here instead of rperltypes.pm |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
# [[[ EXPORTS ]]] |
34
|
7
|
|
|
7
|
|
32
|
use Exporter 'import'; |
|
7
|
|
|
|
|
16
|
|
|
7
|
|
|
|
|
553
|
|
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
# DEV NOTE: don't include generic type conversion subroutines such as to_number() & to_string() in @EXPORT below, causes error: |
37
|
|
|
|
|
|
|
# Subroutine main::to_number redefined at /usr/share/perl/5.18/Exporter.pm |
38
|
|
|
|
|
|
|
our @EXPORT = qw( |
39
|
|
|
|
|
|
|
boolean_CHECK boolean_CHECKTRACE boolean_to_unsigned_integer boolean_to_integer boolean_to_number boolean_to_character boolean_to_string |
40
|
|
|
|
|
|
|
unsigned_integer_CHECK unsigned_integer_CHECKTRACE unsigned_integer_to_boolean unsigned_integer_to_integer unsigned_integer_to_number unsigned_integer_to_character unsigned_integer_to_string |
41
|
|
|
|
|
|
|
integer_CHECK integer_CHECKTRACE integer_to_boolean integer_to_unsigned_integer integer_to_number integer_to_character integer_to_string |
42
|
|
|
|
|
|
|
number_CHECK number_CHECKTRACE number_to_boolean number_to_unsigned_integer number_to_integer number_to_character number_to_string |
43
|
|
|
|
|
|
|
character_CHECK character_CHECKTRACE character_to_boolean character_to_unsigned_integer character_to_integer character_to_number character_to_string |
44
|
|
|
|
|
|
|
string_CHECK string_CHECKTRACE string_to_boolean string_to_unsigned_integer string_to_integer string_to_number string_to_character string_to_string |
45
|
|
|
|
|
|
|
arrayref_CHECK arrayref_CHECKTRACE integer_arrayref_CHECK integer_arrayref_CHECKTRACE number_arrayref_CHECK number_arrayref_CHECKTRACE string_arrayref_CHECK string_arrayref_CHECKTRACE |
46
|
|
|
|
|
|
|
hashref_CHECK hashref_CHECKTRACE integer_hashref_CHECK integer_hashref_CHECKTRACE number_hashref_CHECK number_hashref_CHECKTRACE string_hashref_CHECK string_hashref_CHECKTRACE |
47
|
|
|
|
|
|
|
); |