ref-size.pl

use Benchmark qw(:all);

use Devel::Size;
use DevXX::Size;
use Storable;

sub _storable_freeze {
	length Storable::freeze $_[0];
}

sub _storable_reopen {
	open(my $fh, '|-', 'cat > /dev/null');
	Storable::store_fd $_[0], $fh;
	tell($fh);
}

open(my $fh, '|-', 'cat > /dev/null');
sub _storable_cat {
	my $pos = tell($fh);
	Storable::store_fd $_[0], $fh;
	tell($fh) - $pos;
}

my $o;
$o->{$_} = rand() foreach ( 'a' .. 'z' );
my $hash;

my $nr = 0;
foreach ( 1 .. 10 ) {

	$hash->{ $nr++ } = $o foreach ( 1 .. 10000 );

	warn "# $nr elements\n";

	cmpthese( int(1000 / $_), {
		'size_0.71' => sub { Devel::Size::total_size( $hash ) },
		'size_0.72' => sub { DevXX::Size::total_size( $hash ) },
		'freeze'    => sub { _storable_freeze( $hash ) },
		'reopen'    => sub { _storable_reopen( $hash ) },
		'cat'       => sub { _storable_cat( $hash ) },
	});

}