NAME
Acme::Shukugawa::Atom - ギロッポンにテッペンでバミった
SYNOPSIS
use Acme::Shukugawa::Atom;
my $newstring = Acme::Shukugawa::Atom->translate($string);
# By default, share/config.yaml is used (via File::ShareDir) for custom
# fixed replacements. You can however override this by specifying the
# alternate config filename at load time
BEGIN
{
$Acme::Shukugawa::Atom::CONFIG = '/path/to/config.yaml';
}
use Acme::Shukugawa::Atom;
# Or you can specify them (on top of the default words) at run time
my $atom = Acme::Shukugawa::Atom->new(
# The default values are stored in @Acme::Shukugawa::Atom::DEFAULT_WORDS
custom_words => [
'regexp1' => 'replacement1'
'regexp2' => 'replacement2'
'regexp3' => 'replacement3'
'regexp4' => 'replacement4'
....
]
);
my $newstring = $atom->translate($string);
# shorter way
my $newstring = Acme::Shukugawa::Atom->translate($string,
custom_words => [ ... ]
);
DESCRIPTION
夙川アトム風な文章を作成します。
まだまだ足りない部分がありますので、もしよければt/01_basic.tに希望する変換前と 変換後の結果を書いてテストをアップデートしてお知らせください。変換を 可能にするようにコードを修正してみます。
svnが使える方はこちらからどうぞ:
http://svn.coderepos.org/share/lang/perl/Acme-Shukugawa-Atom/trunk
板付き語(固定変換)を足す場合はインスタンス毎にcustom_wordsを変更するか、 share/config.yaml のcustom_wordsに追加してください。
AUTHOR
Copyright (c) 2007 Daisuke Maki <daisuke@endeworks.jp>
LICENSE
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html