[dbsrgits/DBIx-Class.git] / examples / Benchmarks / semicolon_vs_comma_rowparser / sloppy_bench.pl

use warnings;
use strict;

use Benchmark qw( cmpthese :hireswallclock);
use Sereal;
use Devel::Dwarn;

my ($semicol, $comma) = map {
  my $src = do { local (@ARGV, $/) = $_; <> };
  eval "sub { use strict; use warnings; use warnings FATAL => 'uninitialized'; $src }" or die $@;
} qw( semicol.src comma.src );

my $enc = Sereal::Encoder->new;
my $dec = Sereal::Decoder->new;

for my $iters ( 100, 10_000, 100_000 ) {
  my $dataset = [];
  push @$dataset, [ (scalar @$dataset) x 11 ]
    while @$dataset < $iters;

  my $ice = $enc->encode($dataset);

  print "\nTiming $iters 'rows'...\n";
  cmpthese( -10, {
    semicol => sub { $semicol->($dec->decode($ice)) },
    comma => sub { $comma->($dec->decode($ice)) },
  })
}
Commit	Line	Data
05a5ca4b	1	use warnings;
	2	use strict;
	3
	4	use Benchmark qw( cmpthese :hireswallclock);
	5	use Sereal;
	6	use Devel::Dwarn;
	7
	8	my ($semicol, $comma) = map {
	9	my $src = do { local (@ARGV, $/) = $_; <> };
	10	eval "sub { use strict; use warnings; use warnings FATAL => 'uninitialized'; $src }" or die $@;
	11	} qw( semicol.src comma.src );
	12
	13	my $enc = Sereal::Encoder->new;
	14	my $dec = Sereal::Decoder->new;
	15
	16	for my $iters ( 100, 10_000, 100_000 ) {
	17	my $dataset = [];
	18	push @$dataset, [ (scalar @$dataset) x 11 ]
	19	while @$dataset < $iters;
	20
	21	my $ice = $enc->encode($dataset);
	22
	23	print "\nTiming $iters 'rows'...\n";
	24	cmpthese( -10, {
	25	semicol => sub { $semicol->($dec->decode($ice)) },
	26	comma => sub { $comma->($dec->decode($ice)) },
	27	})
	28	}