generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-10-27 11:06:51 +01:00
Code Issues Projects Releases Wiki Activity

perl: add $unpacker->utf8 mode, decoding strings as UTF-8.

Browse Source
This commit is contained in:
Fuji, Goro
2010-10-05 17:10:10 +09:00
parent f2d13cd647
commit a4a04872a3
5 changed files with 86 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
perl/lib/Data/MessagePack/PP.pm
View File

@@ -248,6 +248,7 @@ sub _pack {
# UNPACK
#
our $_utf8 = 0;
my $p; # position variables for speed.
sub unpack :method {
@@ -358,7 +359,9 @@ sub _unpack {
$num = $byte & ~0xa0;
$p += $num;
}
return substr( $value, $p - $num, $num );
my $s = substr( $value, $p - $num, $num );
utf8::decode($s) if $_utf8;
return $s;
}
elsif ( $byte == 0xc0 ) { # nil
@@ -396,9 +399,19 @@ package
Data::MessagePack::PP::Unpacker;
sub new {
bless { pos => 0 }, shift;
bless { pos => 0, utf8 => 0 }, shift;
}
sub utf8 {
my $self = shift;
$self->{utf8} = (@_ ? shift : 1);
return $self;
}
sub get_utf8 {
my($self) = @_;
return $self->{utf8};
}
sub execute_limit {
execute( @_ );
@@ -540,7 +553,9 @@ sub _count {
sub data {
return Data::MessagePack->unpack( substr($_[0]->{ data }, 0, $_[0]->{pos}) );
my($self) = @_;
local $Data::MessagePack::PP::_utf8 = $self->{utf8};
return Data::MessagePack->unpack( substr($self->{ data }, 0, $self->{pos}) );
}