YappoLogs: LvalueなAccessorのベンチマーク 良く考えたらClass::AccessorのlvalueはあるのにClass::Data::Inheritableのlvalueが無いのがカワイソウな気がしたのでちょっと作ってみた。 package Class::Data::Inheritable::Lvalue; use strict; use warnings; use Carp; our $VERSION = '0.01'; sub mk_classdata { my ($declaredclass, $attribute, $data) = @_; if( ref $declaredclass ) { croak("mk_classdata() is a class method, not an object method"); } my $coredata =