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   751 use v5.12.5;
  55         223  
8 55     55   293 use warnings;
  55         155  
  55         8919  
9              
10             our $VERSION = '1.14.2.2'; # 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 787 my ( $self, $task ) = @_;
26 54         937 $self->{task} = $task;
27             }
28              
29             1;