NAME
Acme::Nyaa - Convert texts like which a cat is talking in Japanese
SYNOPSIS
use Acme::Nyaa;
my $kijitora = Acme::Nyaa->new;
print $kijitora->cat( \'猫がかわいい。' ); # => 猫がかわいいニャー。
print $kijitora->neko( \'神と和解せよ' ); # => ネコと和解せよDESCRIPTION
Acme::Nyaa is a converter which translate Japanese texts to texts like which a cat talking. Language modules are available only Japanese (Acme::Nyaa::Ja) for now.
Nyaa is ニャー, Cats living in Japan meows nyaa.
CLASS METHODS
new( [%argv] )
new() is a constructor of Acme::Nyaa
my $kijitora = Acme::Nyaa->new();INSTANCE METHODS
cat( \$text )
cat() is a converter that appends string ニャー at the end of each sentence.
my $kijitora = Acme::Nyaa->new;
my $nekotext = '猫がかわいい。';
print $kijitora->cat( \$nekotext );
# 猫がかわいいニャー。neko( \$text )
neko() is a converter that replace a noun with ネコ.
my $kijitora = Acme::Nyaa->new;
my $nekotext = '神のさばきは突然にくる';
print $kijitora->neko( \$nekotext );
# ネコのさばきは突然にくるnyaa( [\$text] )
nyaa() returns string: ニャー.
my $kijitora = Acme::Nyaa->new;
print $kijitora->nyaa(); # ニャー
print $kijitora->nyaa('京都'); # 京都ニャーstraycat( \@array-ref | \$scalar-ref [,1] )
straycat() converts multi-lined sentences. If 2nd argument is given then this method also replace each noun with ネコ.
my $nekoobject = Acme::Nyaa->new;
my $filehandle = IO::File->new( 't/a-part-of-i-am-a-cat.ja.txt', 'r' );
my @nekobuffer = <$filehandle>;
print $nekoobject->straycat( \@nekobuffer );
# 吾輩は猫であるニャん。名前はまだ無いニャー。
# どこで生まれたか頓と見當がつかぬニャーー! 何ても暗薄いじめじめした所でニャーニャー泣いて
# 居た事丈は記憶して居るニャーん。吾輩はこゝで始めて人間といふものを見たニャーーーー! 然もあとで聞くと
# それは書生といふ人間で一番獰惡な種族であつたさうだニャん。此書生といふのは時々我々を捕
# へて煮て食ふといふ話であるニャー!REPOSITORY
https://github.com/azumakuniyuki/p5-Acme-Nyaa
INSTALL FROM REPOSITORY
% sudo cpanm Module::Install
% cd /usr/local/src
% git clone git://github.com/azumakuniyuki/p5-Acme-Nyaa.git
% cd ./p5-Acme-Nyaa
% perl Makefile.PL && make && make test && sudo make installAUTHOR
azumakuniyuki <perl.org [at] azumakuniyuki.org>
SEE ALSO
Acme::Nyaa::Ja - Japanese module for Acme::Nyaa
LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.