WWW::NicoVideoという面白そうなモジュールがCPANに上がってるなぁと思い、ソース読んでたらモジュールの終端が"Ritsuko";で吹いた
作者はきっとアイマス好きに違いない。
--解説
Perlのモジュールはほとんどと言っていいほど大抵の場合
1;
で終わってる。
本当はreturn 1;なんだけど、Perlの場合、最後に評価したものが返り値になるので、実は式さえ書けばreturnは不要なのだ。だから省略して 1;と書く。
で、なんで1を返すのさと言うと、Perlで他のソースファイルを利用する場合に使うuseとrequireはファイルの終端を評価して偽だったら読み込み失敗という処理が入る。0や空文字、undefでなければ偽とみなされないので慣例的に1が使われている。
評価して偽にならなければなんでもいいのだが、実際に1以外を使用してる人は初めて見たわー。
