| blib/lib/DBIx/Connector/Driver.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 4 | 6 | 66.6 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 12 | 20 | 12 | 0 | $DRIVERS{$driver} ||= do { my $subclass = 'DBIx::Connector::Driver' . "::$driver"; (my $path = $subclass) =~ s[::][/]g; local $@; my $ok = eval "require $subclass"; die $@ unless $ok or $@ =~ /^Can't locate $path\.pm in \@INC \(/; bless {"driver", $driver}, $ok ? $subclass : $class } |
| 17 | 1 | 11 | 0 | $ok or $@ =~ /^Can't locate $path\.pm in \@INC \(/ |