File Coverage

lib/Rex/Value.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition 1 3 33.3
subroutine 4 4 100.0
pod 0 2 0.0
total 17 21 80.9


line stmt bran cond sub pod time code
1             #
2             # (c) Jan Gehring
3             #
4             #
5             # this is a simple helper class for the get() function
6              
7             package Rex::Value;
8              
9 45     45   616 use v5.12.5;
  45         303  
10 45     45   236 use warnings;
  45         764  
  45         6292  
11              
12             our $VERSION = '1.14.2.3'; # TRIAL VERSION
13              
14             sub new {
15 22     22 0 62 my $that = shift;
16 22   33     207 my $proto = ref($that) || $that;
17 22         170 my $self = {@_};
18              
19 22         124 bless( $self, $proto );
20              
21 22         227 return $self;
22             }
23              
24             sub value {
25 18     18 0 52 my ($self) = @_;
26 18         145 return $self->{value};
27             }
28              
29             1;