7 use lib "$FindBin::Bin/../t/lib";
8 use lib "$FindBin::Bin/../lib";
11 my $schema = DBICTest->init_schema();
12 my $rs = $schema->resultset ('Artist');
13 $rs->populate ([ map { { name => "Art_$_"} } (1 .. 3000) ]);
15 use Benchmark qw/cmpthese/;
18 'Cursor' => sub { $rs->reset; my @r = $rs->cursor->all },
19 'HRI' => sub { $rs->reset; my @r = $rs->search ({}, { result_class => 'DBIx::Class::ResultClass::HashRefInflator' } )->all },
20 'RowObj' => sub { $rs->reset; my @r = $rs->all },