view release on metacpan or  search on metacpan

lib/Convert/BaseN.pm  view on Meta::CPAN

package Convert::BaseN;
use warnings;
use strict;
our $VERSION = sprintf "%d.%02d", q$Revision: 0.1 $ =~ /(\d+)/g;
use Carp;

sub _make_tr($$;$) {
    my ( $from, $to, $opt ) = @_;
    $opt ||= '';
    my $tr = eval qq{ sub{ \$_[0] =~ tr#$from#$to#$opt } };
    croak $@ if $@;
    $tr;
}

my %h2q = qw{ 0 00 1 01 2 02 3 03 4 10 5 11 6 12 7 13
	      8 20 9 21 a 22 b 23 c 30 d 31 e 32 f 33 };
my %q2h = reverse %h2q;