Acme::Jiroを書きました

「ラーメン二郎」初心者のためのコール(呪文)ジェネレータ


を真似して書いてみました。正しくは言う順番があるんでしょうけど、
理解できないので、いい加減です。

サンプル

#!perl
use strict;
use warnings;

use utf8;
use Acme::Jiro;

binmode STDOUT, ":utf8";

my $jiro = Acme::Jiro->new(
    '麺'       => '少なめ',
    '野菜'     => '極めて多め',
    '背脂'     => '普通',
    'タレ'     => '多め',
    'にんにく' => '多め',
);

print $jiro->magic, "\n";


実行

  % perl jiro.pl
  (Before passing ticket) メンスクナメ
  カラメニンニクマシチョモランマ


私を含めよくわからない人向けに promptメソッドがあります

#!perl
use strict;
use warnings;

use utf8;
use Acme::Jiro;

binmode STDOUT, ":utf8";

my $jiro = Acme::Jiro->new();
$jiro->prompt;
print $jiro->magic, "\n";
% perl prompt_jiro.pl
# 1 => 少なめ
# 2 => 普通
select 麺 parameter : 2
# 1 => 無し
# 2 => 少なめ
# 3 => 普通
# 4 => 多め
# 5 => 非常に多め
# 6 => 極めて多め
select 野菜 parameter : 5
# 1 => 無し
# 2 => 少なめ
# 3 => 普通
# 4 => 多め
# 5 => 非常に多め
select 背脂 parameter : 4
# 1 => 普通
# 2 => 多め
# 3 => 非常に多め
select タレ parameter : 3
# 1 => 無し
# 2 => 少なめ
# 3 => 多め
# 4 => 非常に多め
select にんにく parameter : 2
ニンニクスクナメカラメヤサイマシマシアブラマシ

おわりに

関西在住だし、食が細いし、2chで写真を見る限りあまり食べたいとは
思わないんですが、死ぬまでには一度行っといた方がいいんですかね。