2006年11月10日金曜日

[Perl] wantarray

便利なのに使ったことなかった。戻り値の形式が2種類あるのが嫌だったので。
今はおとなになったのでそんな事ない。たとえば DBIx::Class::ResultSet の場合
sub search {
my $self = shift;
my $rs = $self->search_rs( @_ );
return (wantarray ? $rs->all : $rs);
}

@rs = $o->search( "hoge" ); # $rs->all
$rs = $o->search( "hoge" ); # $rs

という感じ。汎用的でCool!

0 件のコメント: