Столкнулся с проблемой выбора простого класса для генерации accessors.
Нашел 3 модуля: accessors, Accessor::Fast, Object::Tiny

Все три схожи по функциональности.

Немножко погуглив (google.com & google.com/codesearch) выяснил, что
по сути наиболее часто используем оказался Accessor::Fast
остальные как-то странно мало кто использует

но посмотрев выяснил что плюсы есть как раз у них

accessors
+ удобно использовать с помощю прагмы

Object::Tiny
+ наиболее быстр

Вот и возник вопрос почему так популярен Accessor::Fast ? :)

Вот полные результаты benchmark'a

$ ./test_simple.pl
benchmark new() + get/set
use accessors;
timethis 100000: 2 wallclock secs ( 1.83 usr + 0.01 sys = 1.84 CPU) @ 54347.83/s (n=100000)
use Accessor;
timethis 100000: 3 wallclock secs ( 3.76 usr + 0.01 sys = 3.77 CPU) @ 26525.20/s (n=100000)
use Accessor::Fast;
timethis 100000: 3 wallclock secs ( 2.86 usr + 0.01 sys = 2.87 CPU) @ 34843.21/s (n=100000)
use Accessor::Faster;
timethis 100000: 4 wallclock secs ( 3.74 usr + 0.01 sys = 3.75 CPU) @ 26666.67/s (n=100000)
use Object::Tiny;
timethis 100000: 1 wallclock secs ( 1.00 usr + 0.00 sys = 1.00 CPU) @ 100000.00/s (n=100000)

test_simple.pl

#!/usr/bin/perl
use Benchmark qw(:all);
my $count = 100000;
my $accessors = sub {
require ClassTest::accessors;
my $o = ClassTest::accessors->new();
$o->test('test');
$o->test();
};
my $Accessor = sub {
require ClassTest::Accessor;
my $o = ClassTest::Accessor->new();
$o->test('test');
$o->test();
};
my $AccessorFast = sub {
require ClassTest::AccessorFast;
my $o = ClassTest::AccessorFast->new();
$o->test('test');
$o->test();
};
my $AccessorFaster = sub {
require ClassTest::AccessorFaster;
my $o = ClassTest::AccessorFaster->new();
$o->test('test');
$o->test();
};
my $ObjectTiny = sub {
require ClassTest::ObjectTiny;
my $o = ClassTest::ObjectTiny->new();
$o->test('test');
$o->test();
};
clearallcache();
print "benchmark new() + get/set\n";
print "use accessors;\n";
timethis( $count, $accessors );
clearallcache();
print "use Accessor;\n";
timethis( $count, $Accessor );
clearallcache();
print "use Accessor::Fast;\n";
timethis( $count, $AccessorFast );
clearallcache();
print "use Accessor::Faster;\n";
timethis( $count, $AccessorFaster );
clearallcache();
print "use Object::Tiny;\n";
timethis( $count, $ObjectTiny );
clearallcache();

модули были вида
ClassTest::Accessor

package ClassTest::Accessor;
use base qw( Class::Accessor );
use strict;
use warnings;
use Class::Accessor;
__PACKAGE__->mk_accessors( qw( test ) );
our $VERSION = '0.01';
1;