Acme-Ikamusume

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

Build.PL
Changes
LICENSE
META.json
README.md
author/Makefile
author/ika.csv
cpanfile
lib/Acme/Ikamusume.pm
share/euc-jp.dic
share/utf8.dic
t/00_compile.t
t/01_geso.t
t/02_parser.t
META.yml
MANIFEST

README.md  view on Meta::CPAN

# NAME

Acme::Ikamusume - The invader comes from the bottom of the sea!

# SYNOPSIS

    use utf8;
    use Acme::Ikamusume;

    print Acme::Ikamusume->geso('イカ娘です。あなたもperlで侵略しませんか？');
    # => イカ娘でゲソ。お主もperlで侵略しなイカ？

# DESCRIPTION

Acme::Ikamusume converts Japanese text into like Ikamusume speak.
Ikamusume, meaning "Squid-Girl", she is a cute Japanese comic/manga
character ([http://www.ika-musume.com/](http://www.ika-musume.com/)).

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 ika.csv
	$(INDEXER) -d $(DICDIR) -t utf8   -u ../share/utf8.dic   -f utf8 ika.csv

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

package Acme::Ikamusume;
use 5.010001;
use strict;
use warnings;
use utf8;
our $VERSION = '0.08';

use File::ShareDir qw/dist_file/;
use Lingua::JA::Kana;

use Text::Mecabist;

sub geso {
    my $self = bless { }, shift;
    my $text = shift // "";

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

__END__

=encoding utf-8

=head1 NAME

Acme::Ikamusume - The invader comes from the bottom of the sea!

=head1 SYNOPSIS

  use utf8;
  use Acme::Ikamusume;

  print Acme::Ikamusume->geso('イカ娘です。あなたもperlで侵略しませんか？');
  # => イカ娘でゲソ。お主もperlで侵略しなイカ？

=head1 DESCRIPTION

Acme::Ikamusume converts Japanese text into like Ikamusume speak.
Ikamusume, meaning "Squid-Girl", she is a cute Japanese comic/manga
character (L<http://www.ika-musume.com/>).

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

use strict;
use warnings;
use Test::Base;
plan tests => 1 * blocks;

use utf8;
binmode Test::More->builder->$_ => ':utf8'
    for qw(output failure_output todo_output);

use Acme::Ikamusume;

filters { match => 'regexp' };

run {
    my $block = shift;
    
    my $output = Acme::Ikamusume->geso($block->input);