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   1623 use v5.12.5;
  141         487  
8 141     108   899 use warnings;
  108         296  
  108         16592  
9              
10             our $VERSION = '1.14.2.3'; # TRIAL VERSION
11              
12             sub create {
13 119     113 0 649 my ( $class, $type ) = @_;
14              
15 113 50       531 unless ($type) {
16 113         1478 $type = Rex::Config->get_cache_type;
17             }
18              
19 113         528 my $class_name = "Rex::Interface::Cache::$type";
20 113     68   9077 eval "use $class_name;";
  68         978  
  68         354  
  68         951  
21 113 50       2192 if ($@) { die("Error loading connection interface $type.\n$@"); }
  0         0  
22              
23 113         625 return $class_name->new;
24             }
25              
26             1;