view release on metacpan or  search on metacpan

scripts/benchmarks.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use FindBin '$Bin';
use List::Util qw(shuffle);

use lib 'lib';
use lib "$Bin/../lib", "$Bin/../blib/lib", "$Bin/../blib/arch";

use AVLTree;
# use Tree::AVL;

use Benchmark;

$| = 1;

print '-' x 21, "\n 100K random inserts\n", '-' x 21, "\n\n";
my @items = shuffle 1 .. 100000;