Fix building on perls with no . in @INC
[dbsrgits/DBIx-Class.git] / t / lib / DBICTest / BaseResultSet.pm
1 package #hide from pause
2   DBICTest::BaseResultSet;
3
4 use strict;
5 use warnings;
6
7 use base qw(DBICTest::Base DBIx::Class::ResultSet);
8
9 sub all_hri {
10   return [ shift->search ({}, { result_class => 'DBIx::Class::ResultClass::HashRefInflator' })->all ];
11 }
12
13 1;