X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FRetrieve.pm;h=2ddd4b2976d9677241badb2f5c74f794c407ce0c;hp=87f531818f4557cab19ad0d0d0d94aac86e73c87;hb=5e0eea3522876a30453af24097507198bbbc9409;hpb=d009cb7d393292037eff527a9f8bab93860224fb diff --git a/lib/DBIx/Class/CDBICompat/Retrieve.pm b/lib/DBIx/Class/CDBICompat/Retrieve.pm index 87f5318..2ddd4b2 100644 --- a/lib/DBIx/Class/CDBICompat/Retrieve.pm +++ b/lib/DBIx/Class/CDBICompat/Retrieve.pm @@ -8,6 +8,8 @@ use strict; # leaving the compat layer as-is, something may in fact depend on that use warnings FATAL => 'all'; +use base 'DBIx::Class'; + sub retrieve { my $self = shift; die "No args to retrieve" unless @_ > 0;