maint/benchmark_datafetch.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use FindBin;
   7 use lib "$FindBin::Bin/../t/lib";
   8 use lib "$FindBin::Bin/../lib";
   9 use DBICTest;
  10
  11 my $schema = DBICTest->init_schema();
  12 my $rs = $schema->resultset ('Artist');
  13 $rs->populate ([ map { { name => "Art_$_"} } (1 .. 3000) ]);
  14
  15 use Benchmark qw/cmpthese/;
  16
  17 cmpthese(-1, {
  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 },
  21 });