6 Class::Accessor::Grouped
9 Class::Accessor::Fast::XS
10 Class::XSAccessor::Compat
16 eval "require $_" or push @missing, $_;
20 die sprintf "Missing modules necessary for benchmark:\n\n%s\n\n",
21 join ("\n", @missing);
26 use Benchmark qw/:hireswallclock cmpthese/;
29 package Bench::Accessor;
35 use base qw/Class::Accessor::Grouped Class::Accessor::Fast/;
36 use Class::XSAccessor { accessors => [ 'xsa' ] };
39 local $Class::Accessor::Grouped::USE_XS = 0;
40 __PACKAGE__->mk_group_accessors ('simple', 'cag');
43 local $Class::Accessor::Grouped::USE_XS = 1;
44 __PACKAGE__->mk_group_accessors ('simple', 'cag_xs');
47 __PACKAGE__->mk_group_accessors ('inherited', 'cag_inh');
48 __PACKAGE__->cag_inh('initial value');
50 __PACKAGE__->mk_accessors('caf');
53 require Class::Accessor::Fast::XS;
54 local @ISA = 'Class::Accessor::Fast::XS';
55 __PACKAGE__->mk_accessors ('caf_xs');
59 require Class::XSAccessor::Compat;
60 local @ISA = 'Class::XSAccessor::Compat';
61 __PACKAGE__->mk_accessors ('caf_xsa');
65 @_ > 1 ? $_[0]->{handmade} = $_[1] : $_[0]->{handmade};
70 base => bless ({}, 'Bench::Accessor')
74 my ($tasks, $name, $class) = @_;
77 my $gen_class = "Bench::Accessor::$class";
81 has $meth => (is => 'rw');
82 # some moosey thingies can not do this
83 eval { __PACKAGE__->meta->make_immutable };
86 $bench_objs->{$name} = $gen_class->new;
87 _add_task ($tasks, $name, $meth, $name);
91 my ($tasks, $name, $meth, $slot) = @_;
93 # we precompile the desired amount of loops so that the loop itself
94 # does not get in the way with some sort of optimization or whatnot
99 \$::init_val = \$bench_objs->{$slot}->$meth;
100 \$bench_objs->{$slot}->$meth($_);
101 \$bench_objs->{$slot}->$meth(\$bench_objs->{$slot}->$meth + $_);
105 $tasks->{$name} = eval "sub { $perl } " or die $@;
110 # $bench_objs->{base}{direct} = 1;
111 # $bench_objs->{base}{direct} = $bench_objs->{base}{direct} + 1;
115 for (qw/CAG CAG_XS CAG_INH CAF CAF_XS CAF_XSA XSA HANDMADE/) {
116 _add_task ($tasks, $_, lc($_), 'base');
125 for (keys %$moose_based) {
126 _add_moose_task ($tasks, $_, $moose_based->{$_})
131 local $Method::Generate::Accessor::CAN_HAZ_XS = 0;
132 _add_moose_task ($tasks, moo => 'Moo');
136 print "Perl $], take $_:\n";
137 cmpthese ( -1, $tasks );