perl-class-accessor-chained