Viewing file:  mouse.pl (1.72 KB) -rw-r--r--
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!perl -w
use strict;
use Benchmark qw(:all);
BEGIN{
package M;
use Mouse;
has foo => (
is => 'rw',
);
has bar => (
is => 'rw',
);
has baz => (
is => 'rw',
);
__PACKAGE__->meta->make_immutable;
}
BEGIN{
package HF;
use Hash::FieldHash qw(:all);
fieldhash my %foo => 'foo';
fieldhash my %bar => 'bar';
fieldhash my %baz => 'baz';
sub new{ my $o; bless \$o, shift }
# sub new{
# my $class = shift;
# my $self = bless do{ \my $o }, $class;
# return Hash::FieldHash::from_hash($self, @_);
# }
}
BEGIN{
package HUF;
use Hash::Util::FieldHash::Compat qw(:all);
fieldhashes \my(%foo, %bar, %baz);
sub new{ my $o; bless \$o, shift }
sub foo{
@_ > 1 ? ($foo{$_[0]} = $_[1]) : $foo{$_[0]}
}
sub bar{
@_ > 1 ? ($bar{$_[0]} = $_[1]) : $bar{$_[0]}
}
sub baz{
@_ > 1 ? ($baz{$_[0]} = $_[1]) : $baz{$_[0]}
}
}
printf "Perl %vd on $^O\n", $^V;
foreach my $count(1, 100){
print "new, and access(read:write 11:3)*$count\n";
cmpthese timethese -1 => {
'H::F' => sub{
my $o = HF->new();
for(1 .. $count){
$o->foo($_);
$o->bar($o->foo + $o->foo + $o->foo + $o->foo + $o->foo);
$o->baz($o->bar + $o->bar + $o->bar + $o->bar + $o->bar);
$o->baz == ($_ * 5 * 5) or die $o->baz;
}
},
'H::U::F' => sub{
my $o = HUF->new();
for(1 .. $count){
$o->foo($_);
$o->bar($o->foo + $o->foo + $o->foo + $o->foo + $o->foo);
$o->baz($o->bar + $o->bar + $o->bar + $o->bar + $o->bar);
$o->baz == ($_ * 5 * 5) or die $o->baz;
}
},
'Mouse' => sub{
my $o = M->new();
for(1 .. $count){
$o->foo($_);
$o->bar($o->foo + $o->foo + $o->foo + $o->foo + $o->foo);
$o->baz($o->bar + $o->bar + $o->bar + $o->bar + $o->bar);
$o->baz == ($_ * 5 * 5) or die $o->baz;
}
},
};
}
|