Skip to content

Instantly share code, notes, and snippets.

@savonarola

savonarola/test_from_perl.pl

Created January 28, 2011 22:28
Show Gist options
  • Save savonarola/801128 to your computer and use it in GitHub Desktop.
Save savonarola/801128 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test_from_perl.pl
#!/usr/bin/perl -w
use strict;
use Benchmark;
use Foo;
use Bar;
my $n1 = 10000000;
my $n2 = 10000;
print "empty:\n";
timethis( $n1, sub{ Foo::bar() } );
print "withdb:\n";
timethis( $n2, sub{ Bar::rnd() } );
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment