File Coverage

blib/lib/Qudo/Driver/DBI/DBD.pm
Criterion Covered Total %
statement 6 12 50.0
branch 0 4 0.0
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 20 40.0


line stmt bran cond sub pod time code
1             package Qudo::Driver::DBI::DBD;
2 3     3   15 use strict;
  3         5  
  3         92  
3 3     3   13 use warnings;
  3         6  
  3         333  
4              
5             sub new {
6 0     0 0   my ($class, $dbd_type) =@_;
7 0 0         die 'No Driver' unless $dbd_type;
8              
9 0           my $subclass = join '::', $class, $dbd_type;
10 0           eval "use $subclass"; ## no critic
11 0 0         die $@ if $@;
12 0           bless {}, $subclass;
13             }
14              
15             1;
16