Acme-Collector64

 view release on metacpan or  search on metacpan

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

__END__

=encoding utf-8

=head1 NAME

Acme::Collector64 - Yet Another Base64?

=head1 SYNOPSIS

    use utf8;
    use Acme::Collector64;

    my $japanese64 = Acme::Collector64->new(
        index_table => 'あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもらりるれろがぎぐげござじずぜぞばびぶべぼぱぴぷぺぽやゆよわ=',
    );

    $japanese64->encode('Hello, world!');
    $japanese64->decode('てきにごふきやごけくほずへれぞりけち==');

=head1 DESCRIPTION

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

use strict;
use warnings;
use utf8;
use Test::More;
use Acme::Collector64;
use Encode;

my $base64 = Acme::Collector64->new();

cmp_ok $base64->encode(':)'), 'eq', 'Oik=';
cmp_ok $base64->encode('Perl'), 'eq', 'UGVybA==';

cmp_ok decode_utf8($base64->decode('44GT44KT44Gr44Gh44Gv44CB5LiW55WM')), 'eq', 'こんにちは、世界';
cmp_ok decode_utf8($base64->decode('KCDvvp/QtO++nyk=')), 'eq', '( ﾟдﾟ)';

done_testing;

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

use strict;
use warnings;
use utf8;
use Test::More;
use Acme::Collector64;
use Encode;

my $index_table = 'あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもらりるれろがぎぐげござじずぜぞばびぶべぼぱぴぷぺぽやゆよわ=';

my $japanese64 = Acme::Collector64->new(
    index_table => $index_table,
);

cmp_ok $japanese64->encode('XD'), 'eq', 'ぬおち=';
cmp_ok $japanese64->encode(encode_utf8('こんにちは！こんにちは！')), 'eq', 'ぴぴきとぴぴさとぴぴきげぴぴきめぴぴきずぽぽばいぴぴきとぴぴさとぴぴきげぴぴきめぴぴきずぽぽばい';

cmp_ok decode_utf8($japanese64->decode('ぴぴさこぴぴきたぴぴきむ')), 'eq', 'らくだ';
cmp_ok decode_utf8($japanese64->decode('ぴぴきのぴぴさかぴぴさうぴぴさとぴぴきすけそそいがまそいらそそいめそそいずじそいれち==')), 'eq', 'じゅもんが ちがいます';

done_testing;

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

use strict;
use warnings;
use utf8;
use Test::More;
use Acme::Collector64;
use Encode;

my $index_table = '🐶🐺🐱🐭🐹🐰🐸🐯🐨🐻🐷🐽🐮🐗🐵🐒🐴🐑🐘🐼🐧🐦🐤🐥🐣🐔🐍🐢🐛🐝🐜🐞🐌🐙🐚🐠🐟🐬🐳🐋🐄🐏🐀🐃🐅🐇🐉🐎🐐🐓🐕🐖🐁🐂🐲🐡🐊ðŸ...

my $emoji64 = Acme::Collector64->new(
    index_table => $index_table,
);

cmp_ok $emoji64->encode(encode_utf8('てへぺろ(・ω<)')) ,'eq', '🐊🐊🐸🐳🐊🐊🐸🐊🐊🐊🐸🐪🐊🐊🐷🐗🐷🐵🐵🐭🐉🐈🐾🐻🐒🐱🐟✔';

cmp_ok decode_utf8($emoji64->decode('🐷🐱🐃🐱🐇🐮🐾🐻🐆🐆🐲🐶🐷🐚🐟✔')), 'eq', '(*´ω｀*)';
cmp_ok decode_utf8($emoji64->decode('🐊🐊🐸🐝🐊🐊🐸🐉🐪🐍🐸🐧🐫🐏🐍🐯🐫🐍🐲🐥🐊🐊🐸🐎🐫🐃🐤🐺🐪🐷🐸🐮🐊🐊🐷🐻🐊🐊🐸🐀🐊🐊🐸🐹🐊🐊🐸🐥🐫🐃🐤🐺🐪ð...

done_testing;