mirror of
https://github.com/msgpack/msgpack-c.git
synced 2025-03-19 21:18:23 +01:00
95 lines
1.9 KiB
Perl
95 lines
1.9 KiB
Perl
package Data::MessagePack;
|
|
use strict;
|
|
use warnings;
|
|
use 5.008001;
|
|
|
|
our $VERSION = '0.16_01';
|
|
our $PreferInteger = 0;
|
|
|
|
our $true = do { bless \(my $dummy = 1), "Data::MessagePack::Boolean" };
|
|
our $false = do { bless \(my $dummy = 0), "Data::MessagePack::Boolean" };
|
|
sub true () { $true }
|
|
sub false () { $false }
|
|
|
|
if ( !__PACKAGE__->can('pack') ) { # this idea comes from Text::Xslate
|
|
my $backend = $ENV{ PERL_DATA_MESSAGEPACK } || '';
|
|
if ( $backend !~ /\b pp \b/xms ) {
|
|
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
|
|
|
|
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.
|
|
|
|
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.
|
|
|
|
=head1 METHODS
|
|
|
|
=over 4
|
|
|
|
=item my $packed = Data::MessagePack->pack($data);
|
|
|
|
pack the $data to messagepack format string.
|
|
|
|
=item my $unpacked = Data::MessagePack->unpack($msgpackstr);
|
|
|
|
unpack the $msgpackstr to messagepack format string.
|
|
|
|
=back
|
|
|
|
=head1 Configuration Variables
|
|
|
|
=over 4
|
|
|
|
=item $Data::MessagePack::PreferInteger
|
|
|
|
Pack the string as int when the value looks like int(EXPERIMENTAL).
|
|
|
|
=back
|
|
|
|
=head1 AUTHORS
|
|
|
|
Tokuhiro Matsuno
|
|
|
|
Makamaka Hannyaharamitu
|
|
|
|
=head1 THANKS TO
|
|
|
|
Jun Kuriyama
|
|
|
|
Dan Kogai
|
|
|
|
FURUHASHI Sadayuki
|
|
|
|
=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/>
|
|
|