6 Class::Accessor::Grouped
9 Class::Accessor::Fast::XS
13 eval "require $_" or push @missing, $_;
17 die sprintf "Missing modules necessary for benchmark:\n\n%s\n\n",
18 join ("\n", @missing);
23 use Benchmark qw/:hireswallclock cmpthese/;
26 package Bench::Accessor;
32 use base qw/Class::Accessor::Grouped Class::Accessor::Fast/;
33 use Class::XSAccessor { accessors => [ 'xsa' ] };
36 local $Class::Accessor::Grouped::USE_XS = 0;
37 __PACKAGE__->mk_group_accessors ('simple', 'cag');
40 local $Class::Accessor::Grouped::USE_XS = 1;
41 __PACKAGE__->mk_group_accessors ('simple', 'cag_xs');
43 __PACKAGE__->mk_accessors('caf');
46 require Class::Accessor::Fast::XS;
47 local @ISA = 'Class::Accessor::Fast::XS';
48 __PACKAGE__->mk_accessors ('caf_xs');
52 @_ > 1 ? $_[0]->{handmade} = $_[1] : $_[0]->{handmade};
57 base => bless ({}, 'Bench::Accessor')
61 my ($tasks, $name, $class) = @_;
64 my $gen_class = "Bench::Accessor::$class";
68 has $meth => (is => 'rw');
69 __PACKAGE__->meta->make_immutable;
72 $bench_objs->{$name} = $gen_class->new;
73 _add_task ($tasks, $name, $meth, $name);
77 my ($tasks, $name, $meth, $slot) = @_;
79 $tasks->{$name} = eval "sub {
80 for (my \$i = 0; \$i < 100; \$i++) {
81 \$bench_objs->{$slot}->$meth(1);
82 \$bench_objs->{$slot}->$meth(\$bench_objs->{$slot}->$meth + 1);
89 # $bench_objs->{base}{direct} = 1;
90 # $bench_objs->{base}{direct} = $bench_objs->{base}{direct} + 1;
94 for (qw/CAG CAG_XS CAF CAF_XS XSA HANDMADE/) {
95 _add_task ($tasks, $_, lc($_), 'base');
100 ($ENV{MOUSE_PUREPERL} ? 'moUse' : 'moUse_XS') => 'Mouse',
102 for (keys %$moose_based) {
103 _add_moose_task ($tasks, $_, $moose_based->{$_})
108 print "Perl $], take $_:\n";
109 cmpthese ( -1, $tasks );