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   613 use v5.12.5;
  45         340  
10 45     45   246 use warnings;
  45         645  
  45         6381  
11              
12             our $VERSION = '1.14.2.2'; # TRIAL VERSION
13              
14             sub new {
15 22     22 0 67 my $that = shift;
16 22   33     202 my $proto = ref($that) || $that;
17 22         150 my $self = {@_};
18              
19 22         122 bless( $self, $proto );
20              
21 22         206 return $self;
22             }
23              
24             sub value {
25 18     18 0 43 my ($self) = @_;
26 18         148 return $self->{value};
27             }
28              
29             1;