File Coverage

lib/Rex/Interface/Executor.pm
Criterion Covered Total %
statement 27 28 96.4
branch 2 4 50.0
condition n/a
subroutine 8 8 100.0
pod 0 1 0.0
total 37 41 90.2


line stmt bran cond sub pod time code
1             #
2             # (c) Jan Gehring
3             #
4              
5             package Rex::Interface::Executor;
6              
7 121     121   1413 use v5.12.5;
  121         490  
8 121     121   693 use warnings;
  121         324  
  121         4356  
9              
10             our $VERSION = '1.14.3'; # VERSION
11              
12 121     114   768 use Data::Dumper;
  114         329  
  114         18540  
13              
14             sub create {
15 213     213 0 620 my ( $class, $type ) = @_;
16              
17 213 50       557 unless ($type) {
18 213         438 $type = "Default";
19             }
20              
21 213         628 my $class_name = "Rex::Interface::Executor::$type";
22 67     67   740 eval "use $class_name;";
  67     38   294  
  67     35   470  
  50     23   644  
  38         96  
  38         510  
  35         260  
  35         69  
  35         200  
  23         176  
  23         65  
  23         106  
  213         16299  
23 213 50       4064 if ($@) { die("Error loading file interface $type.\n$@"); }
  0         0  
24              
25 213         1248 return $class_name->new;
26              
27             }
28              
29             1;