File Coverage

blib/lib/RPerl/Test/MethodArguments/Class_01_Good.pm
Criterion Covered Total %
statement 66 70 94.2
branch n/a
condition n/a
subroutine 22 23 95.6
pod n/a
total 88 93 94.6


line stmt bran cond sub pod time code
1             # [[[ HEADER ]]]
2 1     1   9 use RPerl;
  1         4  
  1         13  
3             package RPerl::Test::MethodArguments::Class_01_Good;
4             use strict;
5 1     1   73 use warnings;
  1         7  
  1         27  
6 1     1   7 our $VERSION = 0.001_000;
  1         4  
  1         179  
7              
8 1     1   9 # [[[ OO INHERITANCE ]]]
  1         4  
  1         126  
9             use parent qw(RPerl::Test);
10             use RPerl::Test;
11              
12             # [[[ OO PROPERTIES ]]]
13 1     1   9 our hashref $properties
  1         4  
  1         35  
14 1     1   7 = { empty_property => my integer $TYPED_empty_property = 2 };
  1         3  
  1         12  
15              
16             # [[[ SUBROUTINES & OO METHODS ]]]
17 1     1   87 sub empty_method {
  1         3  
  1         16  
18 1     1   11 { my void::method $RETURN_TYPE };
  1         4  
  1         9  
19             ( my object $self, my integer $foo ) = @ARG;
20             return 2;
21 1     1   76 }
  1         4  
  1         28  
22 1     1   6  
  1         2  
  1         6  
23             1; # end of class