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
{{#tags}}- {{label}}
{{/tags}}