3 package Bench::Accessor;
5 use Moose::Util::TypeConstraints;
30 has accessor_args => (
40 my $obj = $self->class->new( $self->construct );
41 my @accessor_args = $self->accessor_args;
42 my $accessor = $self->accessor;
44 sub { $obj->$accessor( @accessor_args ) };