Improve a benchmark

[gitmo/Mouse.git] / benchmarks / vs_caf_w_destructors.pl

#!perl

### MODULES


{
    package PlainMoose;
    use Moose;
    has foo => (is => 'rw');

    my $i = 0;
    sub DEMOLISH { $i++ }
    __PACKAGE__->meta->make_immutable();
}
{
    package PlainMouse;
    use Mouse;
    has foo => (is => 'rw');

    my $i = 0;
    sub DEMOLISH { $i++ }
    __PACKAGE__->meta->make_immutable();
}
{
    package ClassAccessorFast;
    use warnings;
    use strict;
    use base 'Class::Accessor::Fast';
    __PACKAGE__->mk_accessors(qw(foo));

    my $i = 0;
    sub DESTROY { $i++ }
}

use Benchmark qw(cmpthese);

my $moose                = PlainMoose->new;
my $mouse                = PlainMouse->new;
my $caf                  = ClassAccessorFast->new;

print "\nCREATION AND DESTRUCTION\n";
cmpthese(-1, {
    Moose                       => sub { my $x = PlainMoose->new(foo => 23) },
    Mouse                       => sub { my $x = PlainMouse->new(foo => 23) },
    ClassAccessorFast           => sub { my $x = ClassAccessorFast->new({foo => 23}) },
}, 'noc');