File Coverage

blib/lib/RPerl/Test/Constant/Class_00_Good.pm
Criterion Covered Total %
statement 72 75 96.0
branch n/a
condition n/a
subroutine 24 25 96.0
pod n/a
total 96 100 96.0


line stmt bran cond sub pod time code
1             # [[[ HEADER ]]]
2 1     1   7 use RPerl;
  1         3  
  1         12  
3             package RPerl::Test::Constant::Class_00_Good;
4             use strict;
5 1     1   64 use warnings;
  1         6  
  1         26  
6 1     1   5 our $VERSION = 0.001_000;
  1         3  
  1         175  
7              
8 1     1   9 # [[[ OO INHERITANCE ]]]
  1         2  
  1         122  
9             use parent qw(RPerl::Test);
10             use RPerl::Test;
11              
12             # [[[ CONSTANTS ]]]
13 1     1   10 ## no critic qw(ProhibitConstantPragma ProhibitMagicNumbers) # USER DEFAULT 3: allow constants
  1         3  
  1         52  
14 1     1   16 use constant PI => my number $TYPED_PI = 3.141_59;
  1         5  
  1         10  
15             use constant PIE => my string $TYPED_PIE = 'pecan';
16              
17 1     1   76 # [[[ OO PROPERTIES ]]]
  1         4  
  1         13  
18 1     1   9 our hashref $properties
  1         9  
  1         8  
19             = { empty_property => my integer $TYPED_empty_property = 2 };
20              
21 1     1   74 # [[[ SUBROUTINES & OO METHODS ]]]
  1         3  
  1         26  
22 1     1   6 sub empty_method { { my void::method $RETURN_TYPE }; return 2; }
  1         2  
  1         7  
23              
24             1; # end of class