mirror of
https://github.com/msgpack/msgpack-c.git
synced 2025-03-19 21:18:23 +01:00
206 lines
5.5 KiB
Perl
206 lines
5.5 KiB
Perl
package Data::MessagePack;
|
|
use strict;
|
|
use warnings;
|
|
use 5.008001;
|
|
|
|
our $VERSION = '0.23';
|
|
our $PreferInteger = 0;
|
|
|
|
sub true () {
|
|
require Data::MessagePack::Boolean;
|
|
no warnings 'once', 'redefine';
|
|
my $t = $Data::MessagePack::Boolean::true;
|
|
*true = sub (){ $t };
|
|
return $t;
|
|
}
|
|
|
|
sub false () {
|
|
require Data::MessagePack::Boolean;
|
|
no warnings 'once', 'redefine';
|
|
my $f = $Data::MessagePack::Boolean::false;
|
|
*false = sub (){ $f };
|
|
return $f;
|
|
}
|
|
|
|
if ( !__PACKAGE__->can('pack') ) { # this idea comes from Text::Xslate
|
|
my $backend = $ENV{ PERL_DATA_MESSAGEPACK } || '';
|
|
if ( $backend !~ /\b pp \b/xms or $ENV{PERL_ONLY} ) {
|
|
eval {
|
|
require XSLoader;
|
|
XSLoader::load(__PACKAGE__, $VERSION);
|
|
};
|
|
die $@ if $@ && $backend =~ /\b xs \b/xms; # force XS
|
|
}
|
|
if ( !__PACKAGE__->can('pack') ) {
|
|
require 'Data/MessagePack/PP.pm';
|
|
}
|
|
}
|
|
|
|
1;
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
Data::MessagePack - MessagePack serialising/deserialising
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use Data::MessagePack;
|
|
|
|
my $packed = Data::MessagePack->pack($dat);
|
|
my $unpacked = Data::MessagePack->unpack($dat);
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This module converts Perl data structures to MessagePack and vice versa.
|
|
|
|
=head1 ABOUT MESSAGEPACK FORMAT
|
|
|
|
MessagePack is a binary-based efficient object serialization format.
|
|
It enables to exchange structured objects between many languages like JSON.
|
|
But unlike JSON, it is very fast and small.
|
|
|
|
=head2 ADVANTAGES
|
|
|
|
=over 4
|
|
|
|
=item PORTABLE
|
|
|
|
The MessagePack format does not depend on language nor byte order.
|
|
|
|
=item SMALL IN SIZE
|
|
|
|
say length(JSON::XS::encode_json({a=>1, b=>2})); # => 13
|
|
say length(Storable::nfreeze({a=>1, b=>2})); # => 21
|
|
say length(Data::MessagePack->pack({a=>1, b=>2})); # => 7
|
|
|
|
The MessagePack format saves memory than JSON and Storable format.
|
|
|
|
=item STREAMING DESERIALIZER
|
|
|
|
MessagePack supports streaming deserializer. It is useful for networking such as RPC.
|
|
See L<Data::MessagePack::Unpacker> for details.
|
|
|
|
=back
|
|
|
|
If you want to get more information about the MessagePack format, please visit to L<http://msgpack.org/>.
|
|
|
|
=head1 METHODS
|
|
|
|
=over 4
|
|
|
|
=item my $packed = Data::MessagePack->pack($data[, $max_depth]);
|
|
|
|
Pack the $data to messagepack format string.
|
|
|
|
This method throws an exception when the perl structure is nested more than $max_depth levels(default: 512) in order to detect circular references.
|
|
|
|
Data::MessagePack->pack() throws an exception when encountering blessed object, because MessagePack is language-independent format.
|
|
|
|
=item my $unpacked = Data::MessagePack->unpack($msgpackstr);
|
|
|
|
unpack the $msgpackstr to a MessagePack format string.
|
|
|
|
=back
|
|
|
|
=head1 Configuration Variables
|
|
|
|
=over 4
|
|
|
|
=item $Data::MessagePack::PreferInteger
|
|
|
|
Packs a string as an integer, when it looks like an integer.
|
|
|
|
=back
|
|
|
|
=head1 SPEED
|
|
|
|
This is a result of benchmark/serialize.pl and benchmark/deserialize.pl on my SC440(Linux 2.6.32-23-server #37-Ubuntu SMP).
|
|
(You should benchmark them with B<your> data if the speed matters, of course.)
|
|
|
|
-- serialize
|
|
JSON::XS: 2.3
|
|
Data::MessagePack: 0.24
|
|
Storable: 2.21
|
|
Benchmark: running json, mp, storable for at least 1 CPU seconds...
|
|
json: 1 wallclock secs ( 1.00 usr + 0.01 sys = 1.01 CPU) @ 141939.60/s (n=143359)
|
|
mp: 1 wallclock secs ( 1.06 usr + 0.00 sys = 1.06 CPU) @ 355500.94/s (n=376831)
|
|
storable: 1 wallclock secs ( 1.12 usr + 0.00 sys = 1.12 CPU) @ 38399.11/s (n=43007)
|
|
Rate storable json mp
|
|
storable 38399/s -- -73% -89%
|
|
json 141940/s 270% -- -60%
|
|
mp 355501/s 826% 150% --
|
|
|
|
-- deserialize
|
|
JSON::XS: 2.3
|
|
Data::MessagePack: 0.24
|
|
Storable: 2.21
|
|
Benchmark: running json, mp, storable for at least 1 CPU seconds...
|
|
json: 0 wallclock secs ( 1.05 usr + 0.00 sys = 1.05 CPU) @ 179442.86/s (n=188415)
|
|
mp: 0 wallclock secs ( 1.01 usr + 0.00 sys = 1.01 CPU) @ 212909.90/s (n=215039)
|
|
storable: 2 wallclock secs ( 1.14 usr + 0.00 sys = 1.14 CPU) @ 114974.56/s (n=131071)
|
|
Rate storable json mp
|
|
storable 114975/s -- -36% -46%
|
|
json 179443/s 56% -- -16%
|
|
mp 212910/s 85% 19% --
|
|
|
|
=head1 CAVEAT
|
|
|
|
=head2 Unpacking 64 bit integers
|
|
|
|
This module can unpack 64 bit integers even if your perl does not support them
|
|
(i.e. where C<< perl -V:ivsize >> is 4), but you cannot calculate these values
|
|
unless you use C<Math::BigInt>.
|
|
|
|
=head1 TODO
|
|
|
|
=over
|
|
|
|
=item Error handling
|
|
|
|
MessagePack cannot deal with complex scalars such as object references,
|
|
filehandles, and code references. We should report the errors more kindly.
|
|
|
|
=item Streaming deserializer
|
|
|
|
The current implementation of the streaming deserializer does not have internal
|
|
buffers while some other bindings (such as Ruby binding) does. This limitation
|
|
will astonish those who try to unpack byte streams with an arbitrary buffer size
|
|
(e.g. C<< while(read($socket, $buffer, $arbitrary_buffer_size)) { ... } >>).
|
|
We should implement the internal buffer for the unpacker.
|
|
|
|
=back
|
|
|
|
=head1 AUTHORS
|
|
|
|
Tokuhiro Matsuno
|
|
|
|
Makamaka Hannyaharamitu
|
|
|
|
gfx
|
|
|
|
=head1 THANKS TO
|
|
|
|
Jun Kuriyama
|
|
|
|
Dan Kogai
|
|
|
|
FURUHASHI Sadayuki
|
|
|
|
hanekomu
|
|
|
|
=head1 LICENSE
|
|
|
|
This library is free software; you can redistribute it and/or modify
|
|
it under the same terms as Perl itself.
|
|
|
|
=head1 SEE ALSO
|
|
|
|
L<http://msgpack.org/> is the official web site for the MessagePack format.
|
|
|
|
L<Data::MessagePack::Unpacker>
|
|
|
|
L<AnyEvent::MPRPC>
|
|
|
|
=cut
|