DBIx::ClassをインストールしてたらClass::Accessor::Chainedなるものを発見(*゚Д゚)ムホムホ http://search.cpan.org/~rclamp/Class-Accessor-Chained/ サンプルコード ./test.pl #! /usr/bin/perl use strict; use warnings; use NekoChained; my $n = NekoChained->new->foo(1)->bar(3)->baz(5); print $n->foo,"\n"; print $n->bar,"\n"; print $n->->baz,"\n"; $n->foo(2)->bar(4)->baz(6); print $n->foo,"\n"; print $n->bar,"\n"; print $n->baz,"\n"; ./N