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   619 use v5.12.5;
  45         312  
10 45     45   227 use warnings;
  45         696  
  45         6024  
11              
12             our $VERSION = '1.14.3'; # VERSION
13              
14             sub new {
15 22     22 0 76 my $that = shift;
16 22   33     213 my $proto = ref($that) || $that;
17 22         181 my $self = {@_};
18              
19 22         165 bless( $self, $proto );
20              
21 22         240 return $self;
22             }
23              
24             sub value {
25 18     18 0 70 my ($self) = @_;
26 18         159 return $self->{value};
27             }
28              
29             1;