File Coverage

blib/lib/RPerl/Test/MethodArguments/Class_00_Good.pm
Criterion Covered Total %
statement 66 66 100.0
branch n/a
condition n/a
subroutine 22 22 100.0
pod n/a
total 88 88 100.0


line stmt bran cond sub pod time code
1             # [[[ HEADER ]]]
2 1     1   10 use RPerl;
  1         5  
  1         17  
3             package RPerl::Test::MethodArguments::Class_00_Good;
4             use strict;
5 1     1   74 use warnings;
  1         7  
  1         335  
6 1     1   8 our $VERSION = 0.001_000;
  1         6  
  1         175  
7              
8 1     1   12 # [[[ OO INHERITANCE ]]]
  1         5  
  1         123  
9             use parent qw(RPerl::Test);
10             use RPerl::Test;
11              
12             # [[[ OO PROPERTIES ]]]
13 1     1   11 our hashref $properties
  1         5  
  1         57  
14 1     1   8 = { empty_property => my integer $TYPED_empty_property = 2 };
  1         5  
  1         17  
15              
16             # [[[ SUBROUTINES & OO METHODS ]]]
17 1     1   86 our void::method $empty_method = sub {
  1         7  
  1         283  
18 1     1   7 ( my object $self ) = @ARG;
  1         2  
  1         11  
19             return 2;
20             };
21 1     1   83  
  1         3  
  1         24  
22 1     1   7 1; # end of class
  1         4  
  1         6