File Coverage

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


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