1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
#!/usr/bin/env perl
use strict;
use warnings;
use Benchmark qw/cmpthese/;
use FindBin;
use lib "$FindBin::Bin/../../t/lib";
use lib "$FindBin::Bin/../../lib";
use DBICTest::Schema;
use DBIx::Class::ResultClass::HashRefInflator; # older dbic didn't load it
printf "Benchmarking DBIC version %s\n", DBIx::Class->VERSION;
my $schema = DBICTest::Schema->connect ('dbi:SQLite::memory:');
$schema->deploy;
my $rs = $schema->resultset ('Artist');
my $hri_rs = $rs->search ({}, { result_class => 'DBIx::Class::ResultClass::HashRefInflator' } );
#DB::enable_profile();
#my @foo = $hri_rs->all;
#DB::disable_profile();
#exit;
my $dbh = $schema->storage->dbh;
my $sql = sprintf ('SELECT %s FROM %s %s',
join (',', @{$rs->_resolved_attrs->{select}} ),
$rs->result_source->name,
$rs->_resolved_attrs->{alias},
);
for (1,10,20,50,200,2500,10000) {
$rs->delete;
$rs->populate ([ map { { name => "Art_$_"} } (1 .. $_) ]);
print "\nRetrieval of $_ rows\n";
bench();
}
sub bench {
cmpthese(-3, {
Cursor => sub { my @r = $rs->cursor->all },
HRI => sub { my @r = $hri_rs->all },
RowObj => sub { my @r = $rs->all },
DBI_AoH => sub { my @r = @{ $dbh->selectall_arrayref ($sql, { Slice => {} }) } },
DBI_AoA=> sub { my @r = @{ $dbh->selectall_arrayref ($sql) } },
});
}
|
