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