X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=examples%2FBenchmarks%2Fbenchmark_datafetch.pl;h=25938f4155df79e8a643606558cc44858a1c6e20;hb=c97338007ede15e7c62095a642b3de382a3508bd;hp=7283e8708c88cb449bb0ea4bfce62c547f430bb3;hpb=571df6765aada245c9882a358cd4269541a178b4;p=dbsrgits%2FDBIx-Class.git

diff --git a/examples/Benchmarks/benchmark_datafetch.pl b/examples/Benchmarks/benchmark_datafetch.pl
index 7283e87..25938f4 100755
--- a/examples/Benchmarks/benchmark_datafetch.pl
+++ b/examples/Benchmarks/benchmark_datafetch.pl
@@ -16,13 +16,7 @@ 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;
+$rs->populate ([ map { { name => "Art_$_"} } (1 .. 10000) ]);
 
 my $dbh = $schema->storage->dbh;
 my $sql = sprintf ('SELECT %s FROM %s %s',
@@ -31,19 +25,14 @@ my $sql = sprintf ('SELECT %s FROM %s %s',
   $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) } },
-  });
-}
+my $compdbi = sub {
+  my @r = $schema->storage->dbh->selectall_arrayref ('SELECT * FROM ' . ${$rs->as_query}->[0] )
+} if $rs->can ('as_query');
+
+cmpthese(-3, {
+  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 },
+  RawDBI => sub { my @r = $dbh->selectall_arrayref ($sql) },
+  $compdbi ? (CompDBI => $compdbi) : (),
+});