/var/log/azumakuniyuki

Acme::Nyaaという猫系Perlモジュールを作りました。文字列か文字列のリファレンスを渡すと、語尾に「ニャー」が付加されて猫が喋っているっぽくなるあれです。

おなじようなものは沢山あるので、完全なる車輪の再発明ですが、CPANには同じ事をするモジュールがなかったので、CPANモジュール登録の練習と言う事でちゃんと作って公開する事にしました。

もともとは、2010年にYAPC::Asiaへ行って、その熱が冷めないうちにCPAN Authorに俺はなる！って勢いで2011年初頭に、Text::Catって名前で作り出したのですが、CPANでのIDが9文字までとか、どのモジュールを使って公開の準備をすればよいかのとか、名前空間はTextでいいのかとか、よくわからんところが多くて、結局放置してました。今回久々のKansai.pmでLTやる事になったので、最近知ったAcmeモジュールという事で作り直して、公開するに至ったわけです。

cpanm Acme::Nyaa;

% sudo cpanm Acme::Nyaa ⏎

または

% git clone git://github.com/azumakuniyuki/p5-Acme-Nyaa.git ⏎
% cd ./p5-Acme-Nyaa ⏎
% sudo cpanm Module::Install ⏎
% perl Makefile.PL && make test && sudo make install ⏎

Perl 5.9.4からコアモジュール入りしたModule::Loadを使っているので、また//(defined-or)演算子も使っているので、5.10.0から動く事にしています。

use Acme::Nyaa;

use Acme::Nyaa;

my $kijitora = Acme::Nyaa->new;

print $kijitora->cat( \'後は野となれ山となれ' );
# 後は野となれ山となれニャーー!

print $kijitora->neko( \'神と和解せよ' );
# ネコと和解せよ

print $kijitora->nyaa( \'京都' );
# 京都ニャーーー!!

print $kijitora->cat( \'「明日の京都は雪でしょう」「最低気温は-4度です」');
# 「明日の京都は雪でしょう」「マーオ!」「最低気温は-4度です」「マーーーオ!!!」

インスタンスメソッド

cat()

neko()

nyaa()

Acme::Nyaa::Ja

Acme