view release on metacpan or  search on metacpan

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

#!perl -T

use Test::More tests => 9;
use Acme::RFC4824;

use Data::Dumper;

my $sfss = Acme::RFC4824->new();
ok(defined $sfss, 'New object creation');

my $test_packet = pack('H*','450000405c1740004006c8500a2581020a2581040185800a0023c8ea61a8d55db012ffff56fe0000020405b4010303000101080a59d6325b0004bbca04020000');

my $ascii = $sfss->encode({
    PACKET => $test_packet,
    TYPE   => 'ASCII',
});