| Subject: | Uses deprecated defined(%hash) |
Data::ObjectDriver::Driver::DBD->new uses defined(%hash), which causes a
deprecation warning on perl 5.11.x. Here's a patch fixing it:
diff --git a/lib/Data/ObjectDriver/Driver/DBD.pm
b/lib/Data/ObjectDriver/Driver/DBD.pm
index 1b0e792..53a8aed 100644
--- a/lib/Data/ObjectDriver/Driver/DBD.pm
+++ b/lib/Data/ObjectDriver/Driver/DBD.pm
@@ -11,7 +11,7 @@ sub new {
die "No Driver" unless $name;
my $subclass = join '::', $class, $name;
no strict 'refs';
- unless (defined %{"${subclass}::"}) {
+ unless (%{"${subclass}::"}) {
eval "use $subclass"; ## no critic
die $@ if $@;
}