Acme-Samurai

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

Changes
LICENSE
META.json
README.md
author/Makefile
author/gozaru.csv
author/gozaru.xls
cpanfile
lib/Acme/Samurai.pm
share/euc-jp.dic
share/utf8.dic
t/00_compile.t
t/01_gozaru.t
META.yml
MANIFEST

README.md  view on Meta::CPAN

# NAME

Acme::Samurai - Speak like a Samurai

# SYNOPSIS

    use utf8;
    use Acme::Samurai;

    Acme::Samurai->gozaru("私、侍です"); # => "それがし、侍でござる"

# DESCRIPTION

Translates Japanese to 時代劇
([http://en.wikipedia.org/wiki/Jidaigeki](http://en.wikipedia.org/wiki/Jidaigeki)) speak.

Test form: [http://samurai.koneta.org/](http://samurai.koneta.org/)

author/Makefile  view on Meta::CPAN

.PHONY: share

INDEXER:=/usr/local/libexec/mecab/mecab-dict-index
DICDIR:=/usr/local/lib/mecab/dic/ipadic

share:
	$(INDEXER) -d $(DICDIR) -t euc-jp -u ../share/euc-jp.dic -f utf8 gozaru.csv
	$(INDEXER) -d $(DICDIR) -t utf8   -u ../share/utf8.dic   -f utf8 gozaru.csv

lib/Acme/Samurai.pm  view on Meta::CPAN

package Acme::Samurai;
use 5.010001;
use strict;
use warnings;
use utf8;
our $VERSION = '0.04';

use File::ShareDir qw/dist_file/;
use Lingua::JA::Alphabet::Yomi qw/alphabet2yomi/;
use Lingua::JA::Numbers qw/num2ja/;
use Unicode::Japanese qw/unijp/;

use Text::Mecabist;

sub gozaru {

lib/Acme/Samurai.pm  view on Meta::CPAN

__END__

=encoding utf-8

=head1 NAME

Acme::Samurai - Speak like a Samurai

=head1 SYNOPSIS

  use utf8;
  use Acme::Samurai;

  Acme::Samurai->gozaru("私、侍です"); # => "それがし、侍でござる"

=head1 DESCRIPTION

Translates Japanese to 時代劇
(L<http://en.wikipedia.org/wiki/Jidaigeki>) speak.

Test form: L<http://samurai.koneta.org/>

t/01_gozaru.t  view on Meta::CPAN

use strict;
use utf8;
use Test::Base;
use Encode;

use Acme::Samurai;

plan tests => 1 * blocks;

# use YAML;
# Acme::Samurai->add_trigger('pre.node_filter' => sub { warn Dump $_[1]->feature });

run {
    my $block = shift;
    is(
        Acme::Samurai->gozaru($block->input) => $block->expected,
        encode_utf8($block->input . ' / ' . $block->name)
    );
};

__DATA__
=== 一般名詞, 固有名詞
--- input:    今日も東京は快晴。
--- expected: 今日もお江戸は日本晴れ。
=== 代名詞, 形容詞
--- input:    わたしが何か悪いことを。
--- expected: それがしが何か良からぬことを。