view release on metacpan or  search on metacpan

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

package ACME::Base64::Hexagram;

use warnings;
use strict;
use utf8;

use MIME::Base64 qw{ encode_base64 decode_base64 };

use Exporter qw{ import };
our @EXPORT = qw{ encode_base64h decode_base64h };

our $VERSION = '0.002';

sub encode_base64h {
    my ($string) = @_;

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

#!/usr/bin/perl
use warnings;
use strict;
use utf8;

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

use Test::More tests => 2;


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

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