File Coverage

lib/Rex/Pkg/Test.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition 1 3 33.3
subroutine 5 5 100.0
pod 0 1 0.0
total 23 26 88.4


line stmt bran cond sub pod time code
1             #
2             # (c) Ferenc Erki
3             #
4              
5             package Rex::Pkg::Test;
6              
7 2     2   83314 use v5.12.5;
  2         17  
8 2     2   20 use warnings;
  2         4  
  2         85  
9              
10             our $VERSION = '1.14.2.2'; # TRIAL VERSION
11              
12 2     2   476 use Rex::Pkg::Base;
  2         10  
  2         23  
13 2     2   59 use base qw(Rex::Pkg::Base);
  2         7  
  2         290  
14              
15             sub new {
16 1     1 0 128 my $that = shift;
17 1   33     7 my $proto = ref($that) || $that;
18 1         10 my $self = $proto->SUPER::new(@_);
19              
20 1         2 bless $self, $proto;
21              
22 1         7 $self->{commands} = { install => 'echo %s' };
23              
24 1         3 return $self;
25             }
26              
27             1;