File Coverage

blib/lib/Rex/Interface/Cache.pm
Criterion Covered Total %
statement 15 16 93.7
branch 2 4 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 21 25 84.0


line stmt bran cond sub pod time code
1             #
2             # (c) Jan Gehring
3             #
4              
5             package Rex::Interface::Cache;
6              
7 141     141   1608 use v5.12.5;
  141         490  
8 141     108   1018 use warnings;
  108         300  
  108         16488  
9              
10             our $VERSION = '1.14.2.2'; # TRIAL VERSION
11              
12             sub create {
13 119     113 0 742 my ( $class, $type ) = @_;
14              
15 113 50       528 unless ($type) {
16 113         1486 $type = Rex::Config->get_cache_type;
17             }
18              
19 113         531 my $class_name = "Rex::Interface::Cache::$type";
20 113     68   8905 eval "use $class_name;";
  68         997  
  68         282  
  68         1061  
21 113 50       2420 if ($@) { die("Error loading connection interface $type.\n$@"); }
  0         0  
22              
23 113         755 return $class_name->new;
24             }
25              
26             1;