Acme-AjiFry

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

# =========================================================================
# THIS FILE IS AUTOMATICALLY GENERATED BY MINILLA.
# DO NOT EDIT DIRECTLY.
# =========================================================================

use 5.008_001;

use strict;
use warnings;
use utf8;

use Module::Build;
use File::Basename;
use File::Spec;
use CPAN::Meta;
use CPAN::Meta::Prereqs;

my %args = (
    license              => 'perl',
    dynamic_config       => 0,

eg/rewrite.pl  view on Meta::CPAN

#!/usr/bin/env perl

use 5.12.4;
use strict;
use warnings;
use utf8;

use FindBin;
use lib ("$FindBin::Bin/../lib");
use Acme::AjiFry::Perl;

アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"岡星むむ･･･食えアジフライお刺身ドボドボお刺身ドボドボお刺身アジフライ\お刺身むむ･･･";
アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"雄山食え食えフライお刺身フライむむ･･･アジむむ･･･中川フライむむ･･･アジむむ･･･\お刺èº...
アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"山岡ドボドボ食えお刺身お刺身お刺身食えアジフライ::山岡ドボドボフライアジフライフライむむ･･･å...
アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"ああアジフライ食え食え食えお刺身お刺身アジ食え食えお刺身ドボドボ食えアジフライ中川山岡むむ･･...

eg/rewrite.pl.orig  view on Meta::CPAN

#!/usr/bin/env perl

use 5.12.4;
use strict;
use warnings;
use utf8;

use FindBin;
use lib ("$FindBin::Bin/../lib");
use Acme::AjiFry::Perl;

アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"岡星むむ･･･食えアジフライお刺身ドボドボお刺身ドボドボお刺身アジフライ\お刺身むむ･･･";
アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"雄山食え食えフライお刺身フライむむ･･･アジむむ･･･中川フライむむ･･･アジむむ･･･\お刺èº...
アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"山岡ドボドボ食えお刺身お刺身お刺身食えアジフライ::山岡ドボドボフライアジフライフライむむ･･･å...
アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"ああアジフライ食え食え食えお刺身お刺身アジ食え食えお刺身ドボドボ食えアジフライ中川山岡むむ･･...

eg/sample.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use FindBin;
use lib ("$FindBin::Bin/../lib");
use Acme::AjiFry;
use Acme::AjiFry::EN;

my $ajifry    = Acme::AjiFry->new();
my $ajifry_en = Acme::AjiFry::EN->new();

print $ajifry->translate_to_ajifry('おさしみ')."\n";

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

package Acme::AjiFry;

use warnings;
use strict;
use utf8;
use Encode;
use List::Util;

our $VERSION = '0.09';

use constant COLS => {
    a => [
        'あ', 'か', 'さ', 'た', 'な', 'は', 'ま', 'や', 'ら', 'わ',
        'が', 'ざ', 'だ', 'ば', 'ぱ', 'ぁ', 'ゃ', 'ゎ'
    ],

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

sub to_AjiFry {
    my ( $self, $raw_string ) = @_;

    my $chomped = chomp($raw_string);
    unless ($raw_string) {
        return "\n" if $chomped;
        return '';
    }

    $raw_string = decode_utf8($raw_string);
    my $ajifry_word = $self->_to_ajifry($raw_string);
    $ajifry_word .= "\n" if $chomped;
    return encode_utf8($ajifry_word);
}

sub translate_to_ajifry {
    my ( $self, $raw_string ) = @_;
    return $self->to_AjiFry($raw_string);
}

sub to_Japanese {
    my ( $self, $ajifry_word ) = @_;
    my $chomped = chomp($ajifry_word);

    unless ($ajifry_word) {
        return "\n" if $chomped;
        return '';
    }

    $ajifry_word = decode_utf8($ajifry_word);
    my $japanese_word = $self->_to_Japanese($ajifry_word);
    $japanese_word .= "\n" if $chomped;
    return encode_utf8($japanese_word);
}

sub translate_from_ajifry {
    my ( $self, $ajifry_word ) = @_;
    return $self->to_Japanese($ajifry_word);
}

sub _search_key_of_element {
    my ( $self, $element, $hash ) = @_;

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

        }
    }

    return $translated_word;
}

1;

__END__

=encoding utf8

=head1 NAME

Acme::AjiFry - AjiFry Language (アジフライ語) Translator


=head1 VERSION

This document describes Acme::AjiFry version 0.09

lib/Acme/AjiFry/EN.pm  view on Meta::CPAN

package Acme::AjiFry::EN;

use warnings;
use strict;
use utf8;
use Encode;

use constant MAP => {
    a => '食え食え食え',
    b => '食えドボドボ',
    c => '食えお刺身',
    d => '食えむむ･･･',
    e => '食えアジフライ',
    f => 'フライ食え食え',
    g => 'フライドボドボ',

lib/Acme/AjiFry/EN.pm  view on Meta::CPAN

sub to_AjiFry {
    my ( $self, $raw_string ) = @_;
    my $chomped = chomp($raw_string);

    unless ($raw_string) {
        return "\n" if $chomped;
        return '';
    }

    $raw_string = decode_utf8($raw_string);
    my $ajifry_word = $self->_to_ajifry($raw_string);
    $ajifry_word .= "\n" if $chomped;
    return encode_utf8($ajifry_word);
}

sub translate_to_ajifry {
    my ( $self, $raw_string ) = @_;
    return $self->to_AjiFry($raw_string);
}

sub to_English {
    my ( $self, $ajifry_word ) = @_;
    my $chomped = chomp($ajifry_word);

    unless ($ajifry_word) {
        return "\n" if $chomped;
        return '';
    }

    $ajifry_word = Encode::decode_utf8($ajifry_word);
    my $translated_word = $self->_to_English($ajifry_word);
    $translated_word .= "\n" if $chomped;
    return encode_utf8($translated_word);
}

sub translate_from_ajifry {
    my ( $self, $ajifry_word ) = @_;
    return $self->to_English($ajifry_word);
}

sub _to_ajifry {
    my $self       = shift;
    my $raw_string = shift;

lib/Acme/AjiFry/EN.pm  view on Meta::CPAN

            $translated_word .= $1;
        }
    }

    return $translated_word;
}
1;

__END__

=encoding utf8

=head1 NAME

Acme::AjiFry::EN - AjiFry Language Translator for English


=head1 SYNOPSIS

    use Acme::AjiFry::EN;

lib/Acme/AjiFry/Perl.pm  view on Meta::CPAN

package Acme::AjiFry::Perl;

use warnings;
use strict;
use utf8;

use Acme::AjiFry::EN;
use Filter::Simple;

sub _extract_statements_avobe_declaration {
    open my $frh, '<', $0 or die "Can't open $0: $!";

    my $above_declaration_str;
    foreach my $line (<$frh>) {
        $above_declaration_str .= $line;

lib/Acme/AjiFry/Perl.pm  view on Meta::CPAN

    print $fh $_;

    s/(.+)/$ajifry->to_English($1)/eg;

    close $fh;
};
1;

__END__

=encoding utf8

=head1 NAME

Acme::AjiFry::Perl - AjiFry Language Translator for Perl


=head1 SYNOPSIS

    use Acme::AjiFry::Perl;

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

#!perl

use strict;
use utf8;
use Encode;

use Acme::AjiFry;

use Test::More;

my $got;
my $aji_fry = Acme::AjiFry->new();

$got = Encode::decode_utf8($aji_fry->to_AjiFry("おさしみ"));
is($got, "食えアジフライお刺身食え食えお刺身ドボドボ岡星ドボドボ", "From Ja: 1");

$got = Encode::decode_utf8($aji_fry->to_AjiFry("あきらめたらそこでしあいしゅうりょうだよ"));
is($got, "食え食え食えフライドボドボああ食え食え岡星むむ･･･アジ食え食えああ食え食えお刺身アジフライフライアジフライアジむむ･･･陶人お刺身ドボドボ食え食え食え食えドボ...

$got = Encode::decode_utf8($aji_fry->to_AjiFry("ぱりーぐ"));
is($got, "山岡食え食え社主ああドボドボーフライお刺身陶人", "From Ja: 3");

$got = Encode::decode_utf8($aji_fry->to_AjiFry("んじゃめな"));
is($got, "京極お刺身ドボドボ陶人中川ゴク･･･食え食え岡星むむ･･･ドボ食え食え", "From Ja: 4");

$got = Encode::decode_utf8($aji_fry->to_AjiFry(""));
is($got, '', "From Ja: 5");

$got = Encode::decode_utf8($aji_fry->translate_to_ajifry("おさしみ"));
is($got, "食えアジフライお刺身食え食えお刺身ドボドボ岡星ドボドボ", "Other way");

done_testing();

t/02.translate_to_ja.t  view on Meta::CPAN

#!perl

use strict;
use utf8;
use Encode;

use Acme::AjiFry;

use Test::More;

my $got;
my $aji_fry = Acme::AjiFry->new();

$got = Encode::decode_utf8($aji_fry->to_Japanese("食えアジフライお刺身食え食えお刺身ドボドボ岡星ドボドボ"));
is($got, "おさしみ", "To Ja: 1");

$got = Encode::decode_utf8($aji_fry->to_Japanese("山岡食え食え社主ああドボドボーフライお刺身陶人"));
is($got, "ぱりーぐ", "To Ja: 2");

$got = Encode::decode_utf8($aji_fry->to_Japanese("食え食え食えフライドボドボああ食え食え岡星むむ･･･アジ食え食えああ食え食えお刺身アジフライフライアジフライアジむむ･･･陶人お刺身ãƒ...
is($got, "あきらめたらそこでしあいしゅうりょうだよ", "To Ja: 3");

$got = Encode::decode_utf8($aji_fry->to_Japanese("京極お刺身ドボドボ陶人中川ゴク･･･食え食え岡星むむ･･･ドボ食え食え"));
is($got, "んじゃめな", "To Ja: 4");

$got = Encode::decode_utf8($aji_fry->to_Japanese(""));
is($got, "", "To Ja: 5");

$got = Encode::decode_utf8($aji_fry->translate_from_ajifry("食えアジフライお刺身食え食えお刺身ドボドボ岡星ドボドボ"));
is($got, "おさしみ", "To Ja: 1");

done_testing();

t/03.translate_reciprocally_ja.t  view on Meta::CPAN

#!perl

use strict;
use utf8;
use Encode;

use Acme::AjiFry;

use Test::More;

my $got;
my $aji_fry = Acme::AjiFry->new();

$got = Encode::decode_utf8($aji_fry->to_Japanese($aji_fry->to_AjiFry("おさしみ")));
is($got, "おさしみ", "Translate reciprocally Ja: 1");

$got = Encode::decode_utf8($aji_fry->to_Japanese($aji_fry->to_AjiFry("ぱりーぐ")));
is($got, "ぱりーぐ", "Translate reciprocally Ja: 2");

$got = Encode::decode_utf8($aji_fry->to_Japanese($aji_fry->to_AjiFry("あきらめたらそこでしあいしゅうりょうだよ")));
is($got, "あきらめたらそこでしあいしゅうりょうだよ", "Translate reciprocally Ja: 3");

$got = Encode::decode_utf8($aji_fry->to_Japanese($aji_fry->to_AjiFry("んじゃめな")));
is($got, "んじゃめな", "Translate reciprocally Ja: 4");

done_testing();

t/04.translate_from_en.t  view on Meta::CPAN

#!perl

use strict;
use utf8;
use Encode;

use Acme::AjiFry::EN;

use Test::More;

my $got;
my $aji_fry_en = Acme::AjiFry::EN->new();

$got = Encode::decode_utf8($aji_fry_en->to_AjiFry("0123456789"));
is($got, "京極お刺身京極むむ･･･京極アジフライ陶人食え食え陶人ドボドボ陶人お刺身陶人むむ･･･陶人アジフライ社主食え食え社主ドボドボ", "Translate from En: 1");

$got = Encode::decode_utf8($aji_fry_en->to_AjiFry("abcdefghijklmnopqrstuvwxyz"));
is($got, "食え食え食え食えドボドボ食えお刺身食えむむ･･･食えアジフライフライ食え食えフライドボドボフライお刺身フライむむ･･･フライアジフライお刺身食え食えお刺身ドボド...

$got = Encode::decode_utf8($aji_fry_en->to_AjiFry("ABCDEFGHIJKLMNOPQRSTUVWXYZ"));
is($got, "山岡ドボドボ山岡お刺身山岡むむ･･･山岡アジフライ岡星食え食え岡星ドボドボ岡星お刺身岡星むむ･･･岡星アジフライゴク･･･食え食えゴク･･･ドボドボゴク･･･お...

$got = Encode::decode_utf8($aji_fry_en->to_AjiFry("012abcDEFgH!4~-+::Z"));
is($got, "京極お刺身京極むむ･･･京極アジフライ食え食え食え食えドボドボ食えお刺身山岡アジフライ岡星食え食え岡星ドボドボフライドボドボ岡星むむ･･･!陶人ドボドボ~-+::京極ド...

$got = Encode::decode_utf8($aji_fry_en->to_AjiFry(""));
is($got, "", "Translate from En: 5");

$got = Encode::decode_utf8($aji_fry_en->translate_to_ajifry("0123456789"));
is($got, "京極お刺身京極むむ･･･京極アジフライ陶人食え食え陶人ドボドボ陶人お刺身陶人むむ･･･陶人アジフライ社主食え食え社主ドボドボ", "other way");

done_testing();

t/05.translate_to_en.t  view on Meta::CPAN

#!perl

use strict;
use utf8;
use Encode;

use Acme::AjiFry::EN;

use Test::More;

my $got;
my $aji_fry_en = Acme::AjiFry::EN->new();

$got = $aji_fry_en->to_English("京極お刺身京極むむ･･･京極アジフライ陶人食え食え陶人ドボドボ陶人お刺身陶人むむ･･･陶人アジフライ社主食え食え社主ドボドボ");

t/06.translate_reciprocally_en.t  view on Meta::CPAN

#!perl

use strict;
use utf8;
use Encode;

use Acme::AjiFry::EN;

use Test::More;

my $got;
my $aji_fry_en = Acme::AjiFry::EN->new();

$got = $aji_fry_en->to_English($aji_fry_en->to_AjiFry("0123456789"));

t/07.self_rewrite.t  view on Meta::CPAN

#!perl

use strict;
use utf8;
use File::Compare;
use File::Copy;
use File::Spec::Functions qw/catfile/;
use FindBin;

use Test::More;

my $rewrite            = catfile($FindBin::Bin, 'rewrite');
my $original_rewrite   = catfile($FindBin::Bin, 'rewrite.orig');
my $translated_rewrite = catfile($FindBin::Bin, 'rewrite.translated');

t/rewrite.orig  view on Meta::CPAN

use utf8;
use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Acme::AjiFry::Perl;

print 'hello';

t/rewrite.translated  view on Meta::CPAN

use utf8;
use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Acme::AjiFry::Perl;

アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川'フライお刺身食えアジフライお刺身ドボドボお刺身ドボドボお刺身アジフライ';

xt/local_functions.t  view on Meta::CPAN

#!perl

use strict;
use warnings;
use utf8;

use Test::More;

eval "use Test::LocalFunctions";
plan skip_all => "Test::LocalFunctions required for testing variables" if $@;

all_local_functions_ok();

xt/vars.t  view on Meta::CPAN

#!perl

use strict;
use warnings;
use utf8;

use Test::More;

eval "use Test::Vars";
plan skip_all => "Test::Vars required for testing variables" if $@;

all_vars_ok();