File Coverage

lib/Rex/Interface/Executor/Base.pm
Criterion Covered Total %
statement 7 13 53.8
branch n/a
condition 0 3 0.0
subroutine 3 5 60.0
pod 0 3 0.0
total 10 24 41.6


line stmt bran cond sub pod time code
1             #
2             # (c) Jan Gehring
3             #
4              
5             package Rex::Interface::Executor::Base;
6              
7 55     55   742 use v5.12.5;
  55         277  
8 55     55   315 use warnings;
  55         131  
  55         8829  
9              
10             our $VERSION = '1.14.2.3'; # TRIAL VERSION
11              
12             sub new {
13 0     0 0 0 my $that = shift;
14 0   0     0 my $proto = ref($that) || $that;
15 0         0 my $self = $proto->SUPER::new(@_);
16              
17 0         0 bless( $self, $proto );
18              
19 0         0 return $self;
20             }
21              
22 0     0 0 0 sub exec { die("Should be implemented by interface class."); }
23              
24             sub set_task {
25 54     54 0 381 my ( $self, $task ) = @_;
26 54         508 $self->{task} = $task;
27             }
28              
29             1;