File Coverage

blib/lib/RPerl/Test/Module/Class_02_Good.pm
Criterion Covered Total %
statement 486 492 98.7
branch n/a
condition n/a
subroutine 162 164 98.7
pod n/a
total 648 656 98.7


line stmt bran cond sub pod time code
1             # [[[ HEADER ]]]
2 1     1   8 use RPerl;
  1         4  
  1         12  
3             package RPerl::Test::Module::Class_02_Good;
4             use strict;
5 1     1   121 use warnings;
  1         6  
  1         30  
6 1     1   7 our $VERSION = 0.001_000;
  1         3  
  1         190  
7              
8 1     1   8 # [[[ OO INHERITANCE ]]]
  1         4  
  1         129  
9             use parent qw(RPerl::Test);
10             use RPerl::Test;
11              
12             # [[[ CRITICS ]]]
13 1     1   7 ## no critic qw(ProhibitMultiplePackages ProhibitReusedNames ProhibitPackageVars) # USER DEFAULT 8: allow additional packages
  1         4  
  1         43  
14 1     1   7  
  1         4  
  1         12  
15             # [[[ OO PROPERTIES ]]]
16             our hashref $properties
17 1     1   94 = { empty_property => my integer $TYPED_empty_property = 2 };
  1         5  
  1         15  
18 1     1   16  
  1         5  
  1         9  
19             # [[[ SUBROUTINES & OO METHODS ]]]
20             sub empty_method { { my void::method $RETURN_TYPE }; return 2; }
21 1     1   91  
  1         2  
  1         32  
22 1     1   5 1; # end of class
  1         5  
  1         5  
23              
24              
25 1     1   71 # [[[ ADDITIONAL CLASSES ]]]
  1         5  
  1         12  
26 1     1   13  
  1         5  
  1         8  
27             # [[[ HEADER ]]]
28             use RPerl;
29 1     1   74 package RPerl::Test::Module::Class_02_Good_Additional;
  1         5  
  1         29  
30 1     1   6 use strict;
  1         3  
  1         4  
31             use warnings;
32             our $VERSION = 0.001_000;
33 1     1   87  
  1         4  
  1         37  
34 1     1   8 # [[[ OO INHERITANCE ]]]
  1         1  
  1         9  
35             use parent qw(RPerl::Test);
36             use RPerl::Test;
37              
38             # [[[ OO PROPERTIES ]]]
39             our hashref $properties
40             = { empty_property_additional => my integer $TYPED_empty_property_additional = 2 };
41 1     1   63  
  1         3  
  1         31  
42 1     1   4 # [[[ SUBROUTINES & OO METHODS ]]]
  1         3  
  1         71  
43             sub empty_method_additional { { my void::method $RETURN_TYPE }; return 2; }
44              
45             1; # end of class
46