view release on metacpan or  search on metacpan

lib/Data/FastPack/JPacker.pm  view on Meta::CPAN

use warnings;
use feature "say";


use Data::FastPack; # For parsing data files
use Data::JPack;    # For packing/unpacking JPack

use File::Path qw<make_path>;
use File::Spec::Functions qw<rel2abs abs2rel>;
use File::Basename qw<basename dirname>;
use feature ":all";





#use constant KEY_OFFSET=>Data::JPack::Packer::KEY_OFFSET+Data::JPack::Packer::KEY_COUNT;
use constant::more ("byte_limit_="."0", qw<
	byte_size_
	message_limit_
	message_count_

t/Data-FastPack-JPacker.t  view on Meta::CPAN

encode_fastpack($encoded,[[0,1,$_]]) for(1..$count);

my $encoded_copy=$encoded;
my @decoded;

decode_fastpack($encoded_copy, \@decoded);

ok (@decoded == $count);

#use Data::Dumper;
#use feature ":all";
#say STDERR Dumper @decoded;


use File::Temp qw<mktemp>;
# Write to file
my $input=mktemp("fastpackXXXXXXXX");;
{
  open my $fh, ">", $input;
  print $fh $encoded;
}