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

More tests; some fails now :(

Browse Source
This commit is contained in:
gfx
2010-09-16 21:37:49 +09:00
parent 8eaed95e02
commit 562de7926b
6 changed files with 56 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -6,6 +6,18 @@ use 5.008001;
our $VERSION = '0.23';
our $PreferInteger = 0;
{
package
Data::MessagePack::Boolean;
use overload
'bool' => sub { ${ $_[0] } },
'0+' => sub { ${ $_[0] } },
'""' => sub { ${ $_[0] } ? 'true' : 'false' },
fallback => 1,
;
}
our $true = do { bless \(my $dummy = 1), "Data::MessagePack::Boolean" };
our $false = do { bless \(my $dummy = 0), "Data::MessagePack::Boolean" };
sub true () { $true }