Perlメモ: サブルーチンがリストコンテキストで呼び出されたか調べる

wantarray 関数を使うと、そのサブルーチンがリストコンテキストで呼び出されたかどうかを調べることができます。

sub hoge {
    return wantarray ? (100, 200, 300) : 3;
}