File Coverage

blib/lib/RPerl/DataStructure/Hash/Properties.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             # [[[ HEADER ]]]
2             package RPerl::DataStructure::Hash::Properties;
3 3     3   16 use strict;
  3         8  
  3         79  
4 3     3   18 use warnings;
  3         8  
  3         75  
5 3     3   16 use RPerl::AfterSubclass;
  3         6  
  3         410  
6             our $VERSION = 0.001_100;
7              
8             # [[[ OO INHERITANCE ]]]
9             #use parent qw(RPerl::GrammarRule RPerl::DataStructure::Hash); # NEED UPGRADE, CORRELATION #rp023: Inline::CPP support for multiple inheritance
10 3     3   19 use parent qw(RPerl::GrammarRule);
  3         7  
  3         16  
11 3     3   139 use RPerl::GrammarRule;
  3         9  
  3         60  
12              
13             # [[[ CRITICS ]]]
14             ## no critic qw(ProhibitUselessNoCritic ProhibitMagicNumbers RequireCheckedSyscalls) # USER DEFAULT 1: allow numeric values & print operator
15             ## no critic qw(Capitalization ProhibitMultiplePackages ProhibitReusedNames) # SYSTEM DEFAULT 3: allow multiple & lower case package names
16              
17             # [[[ INCLUDES ]]]
18 3     3   16 use Scalar::Util 'blessed';
  3         8  
  3         236  
19              
20             # [[[ OO PROPERTIES ]]]
21             our hashref $properties = { # whoah, so meta
22             property_entries => my object_hashref $TYPED_property_entries = undef
23             };
24              
25             # [[[ SUBROUTINES & OO METHODS ]]]
26              
27             # ...
28              
29             # [[[ SUB-TYPES ]]]
30              
31             # a property is a data structure belonging to a class or object, each RPerl object has a properties hash
32             package # hide from PAUSE indexing
33             properties;
34 3     3   20 use strict;
  3         8  
  3         60  
35 3     3   13 use warnings;
  3         8  
  3         77  
36 3     3   14 use parent qw(RPerl::DataStructure::Hash::Properties);
  3         6  
  3         15  
37              
38             1; # end of class