perl-Class-Accessor-Chained