generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-03-25 19:32:11 +01:00
Code Issues Projects Releases Wiki Activity

perl: add JSON.pm-like interface: Data::MessagePack->new->encode(...)

Browse Source
This commit is contained in:
Fuji Goro 2011-08-19 10:54:30 +09:00
parent 92718e2140
commit 356b7b43f8
2 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
perl/lib/Data/MessagePack.pm
View File

@ -33,6 +33,14 @@ if ( !__PACKAGE__->can('pack') ) { # this idea comes from Text::Xslate
}
}
sub new {
my($class) = @_;
return bless {}, $class;
}
sub encode; *encode = __PACKAGE__->can('pack');
sub decode; *decode = __PACKAGE__->can('unpack');
1;
__END__

15
perl/t/18_new_interface.t Normal file
View File

@ -0,0 +1,15 @@
#!perl
use strict;
use warnings;
use Test::More;
use Data::MessagePack;
my $mp = Data::MessagePack->new();
is_deeply $mp->decode( $mp->encode(\%ENV) ), \%ENV;
done_testing;