view release on metacpan or  search on metacpan

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

package Data::FastPack;
use strict;
use warnings;

our $VERSION="v0.3.0";

use feature ":all";
no warnings "experimental";
use Export::These qw<decode_fastpack encode_fastpack decode_message encode_message create_namespace name_for_id id_for_name FP_MSG_TIME FP_MSG_ID FP_MSG_PAYLOAD FP_MSG_TOTAL_LEN>;



use constant::more <FP_MSG_{TIME=0,ID,PAYLOAD,TOTAL_LEN}>;

use constant::more <FP_NS_{ID=0,SPACE,PARENT,NAME,USER}>;
use constant::more qw<N2E=0 I2E NEXT_ID FREE_ID>;

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

# FastPack application (web client)
package Data::FastPack::App;
use strict;
use warnings;

use feature ":all";
our $VERSION="v0.1.1";


use Data::JPack;

use File::ShareDir ":ALL";

use File::Path qw<make_path>;
use File::Basename qw<dirname>;

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

use strict;
use warnings;
use feature ":all";
use Test::More;


use Data::FastPack;
use Data::FastPack::Meta;

#use Data::Dumper;

my $buffer="";
my @input=([0, 1, "a"x7],[0,23,"b" x 7]);