sort of initial

.gitlab-ci.yml

···
+stages:
+    - test-distribution
+    - build-distribution
+    - release-distribution
+
+dzil-test:
+    stage: test-distribution
+    image: $CI_REGISTRY/blockstackers/perl-mojolicious:latest
+    script:
+        - dzil listdeps --missing|cpanm -n
+        - dzil test
+    rules:
+        - if: $CI_COMMIT_BRANCH =~ /^f-.*$/ || $CI_COMMIT_BRANCH == $CI_DEFAULT_BRANCH || $CI_PIPELINE_SOURCE == 'merge_request_event'
+
+dzil-build:
+    stage: build-distribution
+    image: $CI_REGISTRY/blockstackers/perl-mojolicious:latest
+    dependencies:
+        - dzil-test
+    script:
+        - dzil build
+        - APP_VER=`cat package-version.txt`
+        - echo "Releasing $APP_VER"
+        - git tag "$APP_VER"
+        - git push --tags https://root:$[e-mail]/$CI_PROJECT_PATH.git HEAD:main
+        - curl -u token:${WOK_TOKEN} -F "author=MADCAT" -F "dist=@Multiformats-${APP_VER}.tar.gz" https://wok.blockstackers.net/upload
+        # FIXME FIXME: push to PAUSE; we're not using dzil release because reasons
+        # - echo "user $PAUSE_USER" > pause.cfg
+        # - echo "password $PAUSE_PASSWORD >> pause.cfg" 
+        # - cpan-upload --config pause.cfg Multiformats-${APP_VER}.tar.gz
+    rules:
+        - if: $CI_COMMIT_BRANCH == $CI_DEFAULT_BRANCH

dist.ini

···
 [AutoPrereqs]
 
 [Prereqs]
-Math::Base36 = 0

lib/Multiformats/Multibase.pm

···
+package 
+    Multiformats::Multibase {
+    use strict;
+    use warnings;
+    use feature 'signatures';
+
+    use Exporter 'import';
+    our @EXPORT_OK = qw/multibase_encode multibase_decode/;
+
+    use Crypt::Misc qw/encode_b58b decode_b58b encode_b32r decode_b32r/;
+    use Math::Base36 qw/encode_base36 decode_base36/;
+
+    sub decode($self, $value) {
+        return multibase_decode($value);
+    }
+
+    sub encode($self, $as, $value) {
+        return multibase_encode($as, $value);
+    }
+
+    sub new($pkg) {
+        return bless({}, $pkg);
+    }
+
+    # these 2 maps map the actual encoding and decoding
+    # to a subroutine that takes the to be decoded/encoded values as first argument
+    # please note that only a few formats are implemented by default
+    use constant MB_ENCODE_MAP => {
+        'none'          =>  sub { return "\0" . shift },
+        'base32'        =>  sub { return 'b' . encode_b32r(shift) },
+        'base36'        =>  sub { return 'k' . encode_base36(shift) },
+        'base58btc'     =>  sub { return 'z' . encode_b58b(shift) },
+    };
+
+    use constant MB_DECODE_MAP => {
+        "\0"            =>  sub { return shift },
+        'b'             =>  sub { return decode_b32r(shift) },
+        'k'             =>  sub { return decode_base36(shift) },
+        'z'             =>  sub { return decode_b58b(shift) },
+    };
+
+    sub multibase_decode($bytes) {
+        my $t = substr($bytes, 0, 1);
+        die 'unknown format ' . $t . ', ' unless exists MB_DECODE_MAP->{$t};
+        return MB_DECODE_MAP->{$t}->(substr($bytes, 1));
+    }
+
+    sub multibase_encode($as, $bytes) {
+        die 'unknown format ' . $as . ', ' unless exists MB_ENCODE_MAP->{$as};
+        return MB_ENCODE_MAP->{$as}->($bytes);
+    }
+}
+
+1;

lib/Multiformats/Varint.pm

···
     }
 
     sub encode($self, $value) {
-        return encode_varint($value);
+        return varint_encode($value);
     }
 
     sub new($pkg) {

t/001_varint.t

···
+use Test::More;
+
+use Multiformats::Varint qw/varint_encode varint_decode_raw varint_decode/;
+
+my $object = Multiformats::Varint->new;
+
+is(varint_encode(300), "\xAC\x02", 'non-wantarray encoding works');
+
+my @o = varint_encode(300);
+
+is($o[0], "\xAC\x02", 'wantarray encoding works');
+is($o[1], 2, 'wantarray encoding returns proper bytes used');
+
+is(varint_decode(pack('C*', 172, 2)), 300, 'non-wantarray decoding works');
+
+my @d = varint_decode_raw(pack('C*', 172, 2));
+
+is($d[0], 300, 'wantarray decoding works');
+is($d[1], 2, 'wantarray decoding returns proper bytes used');
+
+my $e = varint_encode(8675309);
+is(varint_decode($e), 8675309, 'decoding encoded value works');
+
+is($object->encode(300), "\xAC\x02", "OO encoding works");
+is($object->decode_raw("\xAC\x02"), 300, "OO decoding works");
+
+done_testing();

t/002_multibase.t

···
+use Test::More;
+
+use Multiformats::Multibase qw/multibase_encode multibase_decode/;
+
+my $object = Multiformats::Multibase->new;
+
+is(multibase_encode('base58btc', 'yes mani !'), 'z7paNL19xttacUY', 'imported encode: b58btc encodes properly');
+is(multibase_decode('z7paNL19xttacUY'), 'yes mani !', 'imported decode: b58btc decodes properly');
+
+is($object->encode('base58btc', 'yes mani !'), 'z7paNL19xttacUY', 'imported encode: b58btc encodes properly');
+is($object->decode('z7paNL19xttacUY'), 'yes mani !', 'imported decode: b58btc decodes properly');
+
+done_testing();