view release on metacpan or  search on metacpan

lib/ACME/Base64/Hexagram.pm  view on Meta::CPAN

sub decode_base64h {
    my ($encoded) = @_;
    $encoded =~ tr{䷀䷁䷂䷃䷄䷅䷆䷇䷈䷉䷊䷋䷌䷍䷎䷏䷐䷑䷒䷓䷔䷕䷖䷗䷘䷙䷚䷛䷜䷝䷞䷟䷠䷡䷢䷣䷤䷥䷦䷧䷨䷩䷪䷫䷬䷭䷮䷯䷰䷱䷲䷳䷴䷵䷶䷷䷸䷹䷺䷻䷼䷽䷾䷿·}{A-Za-z0-9+/=};
    my $decoded = decode_base64($encoded);
    $decoded
}


=head1 NAME

 ACME::Base64::Hexagram - Base64 encoding using I Ching hexagrams

=head1 SYNOPSIS

  use ACME::Base64::Hexagram qw{ decode_base64h encode_base64h };

  my $encoded = encode_base64h('The Book of Changes');

=head1 FUNCTIONS

=over 4

t/01-basic.t  view on Meta::CPAN

use ACME::Base64::Hexagram qw{ encode_base64h decode_base64h };

use Test::More tests => 2;


my $string = "Just Another Perl Hacker,\n";

my $result = "䷒䷧䷕䷳䷝䷂䷁䷁䷛䷦䷽䷴䷚䷆䷕䷲䷈䷅䷁䷥䷜䷦䷰䷠䷒䷆䷅䷣䷚䷶䷕䷲䷋䷀䷨·";

is encode_base64h($string), $result . "\n", 'encoding';
is decode_base64h($result), $string, 'decoding';