File Coverage

blib/lib/RPerl/Test/MethodArguments/Class_02_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   8 use RPerl;
  1         5  
  1         11  
3             package RPerl::Test::MethodArguments::Class_02_Good;
4             use strict;
5 1     1   62 use warnings;
  1         6  
  1         24  
6 1     1   6 our $VERSION = 0.001_000;
  1         4  
  1         174  
7              
8 1     1   8 # [[[ OO INHERITANCE ]]]
  1         3  
  1         156  
9             use parent qw(RPerl::Test);
10             use RPerl::Test;
11              
12             # [[[ OO PROPERTIES ]]]
13 1     1   10 our hashref $properties
  1         3  
  1         38  
14 1     1   7 = { empty_property => my integer $TYPED_empty_property = 2 };
  1         2  
  1         13  
15              
16             # [[[ SUBROUTINES & OO METHODS ]]]
17 1     1   85 sub empty_method {
  1         4  
  1         13  
18 1     1   10 { my void::method $RETURN_TYPE };
  1         5  
  1         8  
19             ( my object $self,
20             my number $foo,
21 1     1   72 my number_arrayref $bar,
  1         4  
  1         26  
22 1     1   5 my number_hashref $baz
  1         4  
  1         8  
23             ) = @ARG;
24             return 2;
25 1     1   60 }
  1         3  
  1         8  
26 1     1   10  
  1         3  
  1         8  
27             1; # end of class