Acme-RFC4824
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',
});
( run in 0.237 second using v1.01-cache-2.11-cpan-a5abf4f5562 )