Acme-AjiFry
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
"author"
]
},
"prereqs" : {
"build" : {
"requires" : {
"File::Compare" : "1.1005",
"File::Copy" : "2.13",
"File::Spec::Functions" : "0",
"FindBin" : "0",
"Test::More" : "0.98"
}
},
"configure" : {
"requires" : {
"CPAN::Meta" : "0",
"CPAN::Meta::Prereqs" : "0",
"Module::Build" : "0.4003"
}
},
"develop" : {
"requires" : {
"Test::CPAN::Meta" : "0",
"Test::MinimumVersion" : "0.10108",
"Test::Pod" : "1.41",
"Test::Spellunker" : "v0.2.7"
}
},
"runtime" : {
"requires" : {
"Encode" : "2.39",
"Filter::Simple" : "0.84",
"List::Util" : "1.22",
"perl" : "5.008009"
}
}
---
abstract: 'AjiFry Language (ã¢ã¸ãÂÂã©ã¤èªÂ) Translator'
author:
- 'moznion C<< <moznion[at]gmail.com> >>'
build_requires:
File::Compare: 1.1005
File::Copy: 2.13
File::Spec::Functions: 0
FindBin: 0
Test::More: 0.98
configure_requires:
CPAN::Meta: 0
CPAN::Meta::Prereqs: 0
Module::Build: 0.4003
dynamic_config: 0
generated_by: 'Minilla/v0.4.4, CPAN::Meta::Converter version 2.130880'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
requires 'perl', '5.008009';
requires 'Encode', '2.39';
requires 'List::Util', '1.22';
requires 'Filter::Simple', '0.84';
on 'build' => sub {
requires 'FindBin', 0;
requires 'Test::More', '0.98';
requires 'File::Copy', '2.13';
requires 'File::Compare', '1.1005';
requires 'File::Spec::Functions', 0;
};
on 'configure' => sub {
requires 'Module::Build', '0.4003';
};
t/00.load.t view on Meta::CPAN
use Test::More tests => 1;
BEGIN {
use_ok( 'Acme::AjiFry' );
}
diag( "Testing Acme::AjiFry $Acme::AjiFry::VERSION" );
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, "é£ãé£ãé£ããã©ã¤ããããããé£ãé£ã岡æãã・・・ã¢ã¸é£ãé£ãããé£ãé£ããåºèº«ã¢ã¸ãã©ã¤ãã©ã¤ã¢ã¸ãã©ã¤ã¢ã¸ãã・・・é¶äººãåºèº«ããããé£ãé£ãé£ãé£ããã...
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");
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");
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, "é£ãé£ãé£ãé£ãããããé£ããåºèº«é£ããã・・・é£ãã¢ã¸ãã©ã¤ãã©ã¤é£ãé£ããã©ã¤ãããããã©ã¤ãåºèº«ãã©ã¤ãã・・・ãã©ã¤ã¢ã¸ãã©ã¤ãåºèº«é£ãé£ããåºèº«ããã...
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("京極ãåºèº«äº¬æ¥µãã・・・京極ã¢ã¸ãã©ã¤é¶äººé£ãé£ãé¶äººããããé¶äººãåºèº«é¶äººãã・・・é¶äººã¢ã¸ãã©ã¤ç¤¾ä¸»é£ãé£ã社主ãããã");
is($got, "0123456789", "Translate to En: 1");
$got = $aji_fry_en->to_English("é£ãé£ãé£ãé£ãããããé£ããåºèº«é£ããã・・・é£ãã¢ã¸ãã©ã¤ãã©ã¤é£ãé£ããã©ã¤ãããããã©ã¤ãåºèº«ãã©ã¤ãã・・・ãã©ã¤ã¢ã¸ãã©ã¤ãåºèº«é£ãé£...
is($got, "abcdefghijklmnopqrstuvwxyz", "Translate to En: 2");
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"));
is($got, "0123456789", "Translate reciprocally En: Number");
$got = $aji_fry_en->to_English($aji_fry_en->to_AjiFry("abcdefghijklmnopqrstuvwxyz"));
is($got, "abcdefghijklmnopqrstuvwxyz", "Translate reciprocally En: Small Letter");
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');
File::Copy::copy $original_rewrite, $rewrite;
my $got;
$got = `$^X $rewrite`;
is($got, 'hello', 'rewrite: stdout-1');
$got = File::Compare::compare($rewrite, $translated_rewrite);
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/perlcritic.t view on Meta::CPAN
#!perl
use strict;
use Test::More;
eval { require Test::Perl::Critic; Test::Perl::Critic->import(-profile => "xt/perlcriticrc") };
plan skip_all => "Test::Perl::Critic is not installed." if $@;
all_critic_ok();
#!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();
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.795 second using v1.00-cache-2.02-grep-82fe00e-cpan-585fae043c8 )