[Bast-commits] r9031 - DBIx-Class/0.08/trunk/maint
ribasushi at dev.catalyst.perl.org
ribasushi at dev.catalyst.perl.org
Sat Mar 20 08:26:12 GMT 2010
Author: ribasushi
Date: 2010-03-20 08:26:12 +0000 (Sat, 20 Mar 2010)
New Revision: 9031
Modified:
DBIx-Class/0.08/trunk/maint/benchmark_datafetch.pl
Log:
Extend benchmark
Modified: DBIx-Class/0.08/trunk/maint/benchmark_datafetch.pl
===================================================================
--- DBIx-Class/0.08/trunk/maint/benchmark_datafetch.pl 2010-03-20 08:00:00 UTC (rev 9030)
+++ DBIx-Class/0.08/trunk/maint/benchmark_datafetch.pl 2010-03-20 08:26:12 UTC (rev 9031)
@@ -7,15 +7,19 @@
use lib "$FindBin::Bin/../t/lib";
use lib "$FindBin::Bin/../lib";
use DBICTest;
+use DBIx::Class::ResultClass::HashRefInflator; # older dbic didn't load it
+printf "Benchmarking DBIC version %s\n", DBIx::Class->VERSION;
+
my $schema = DBICTest->init_schema();
my $rs = $schema->resultset ('Artist');
-$rs->populate ([ map { { name => "Art_$_"} } (1 .. 3000) ]);
+$rs->populate ([ map { { name => "Art_$_"} } (1 .. 10000) ]);
use Benchmark qw/cmpthese/;
-cmpthese(-1, {
+cmpthese(-5, {
'Cursor' => sub { $rs->reset; my @r = $rs->cursor->all },
'HRI' => sub { $rs->reset; my @r = $rs->search ({}, { result_class => 'DBIx::Class::ResultClass::HashRefInflator' } )->all },
'RowObj' => sub { $rs->reset; my @r = $rs->all },
+ 'DBI' => sub { my @r = $schema->storage->_get_dbh->selectall_arrayref ('SELECT * FROM ' . ${$rs->as_query}->[0] ) },
});
More information about the Bast-commits
mailing list