2014 年 6 月 14 日
ハチイチ忘年会#07 より
執筆ハッカソン より
今日はめでたいので…
こえむのプログラムをつくりました!
$ perldoc -t Acme::Koemu
use Acme::Koemu;
use feature qw/say/;
my $koemu = Acme::Koemu->new();
say $koemu->name();
こえむの英字ニックネームを返します。
$koemu->name();
こえむはお酒が大好き。それに加えて酔っ払っているとしつこいので、その状態を真偽値で判断します。
say '落ちつけ!'
if $koemu->is_drunk();
こえむが飲みに行きます。引数に飲み会での役割を文字列で与えるとその通りキッチリ仕事する場合があります。
$koemu->go_to_party();
こえむには愛する人がいます。引数にその人の名前を与えると、果たして本当にLOVEなのか?を真偽値で判断します。
$koemu->love('誰かさん');