Data-FastPack

 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.2.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>;
# routine indicating the required size of a buffer to store the requested

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]);

t/03-name.t  view on Meta::CPAN

ok @output==1, "decode ok";


done_testing;
####################################################################################
# use Data::FastPack::Scoped;                                                      #
#                                                                                  #
#                                                                                  #
# use Data::Dumper;                                                                #
# use feature ":all";                                                              #
#                                                                                  #
# my $buf="";                                                                      #
# my $root=create_entry 0, "test", "user", 1;                                      #
# #say STDERR Dumper $root;                                                        #
#                                                                                  #
# my $child1=create_entry 1, "test1", "user1",1;                                   #
# my $child2=create_entry 2, "test2", "user2";                                     #
# #say STDERR Dumper $child1;                                                      #
# #say STDERR Dumper $child2;                                                      #
# #                                                                                #