Class::Accessor::* CPAN lists several other C::A modules. Class::Accessor::Chained my $foo = Foo->new->foo(1)->bar(2)->baz(4); Class::Accessor::Lvalue $foo->bar = 42; Class::Accessor::Assert use Class::Accessor::Assert; __PACKAGE__->mk_accessors( qw( +foo bar=Some::Class baz ) );