The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more
12345678910111213 package #hide from pause DBICTest::BaseResultSet;use strict;use warnings;use base qw(DBICTest::Base DBIx::Class::ResultSet);sub all_hri { return [ shift->search ({}, { result_class => 'DBIx::Class::ResultClass::HashRefInflator' })->all ];}1;
package
#hide from pause
DBICTest::BaseResultSet;
use
strict;
warnings;
base
qw(DBICTest::Base DBIx::Class::ResultSet)
;
sub
all_hri {
return
[
shift
->search ({}, {
result_class
=>
'DBIx::Class::ResultClass::HashRefInflator'
})->all ];
}
1;