mirror of
https://github.com/msgpack/msgpack-c.git
synced 2025-10-30 05:29:42 +01:00
15 lines
297 B
Perl
15 lines
297 B
Perl
package Data::MessagePack::Boolean;
|
|
use strict;
|
|
use overload
|
|
'bool' => sub { ${ $_[0] } },
|
|
'0+' => sub { ${ $_[0] } },
|
|
'""' => sub { ${ $_[0] } ? 'true' : 'false' },
|
|
|
|
fallback => 1,
|
|
;
|
|
|
|
our $true = do { bless \(my $dummy = 1) };
|
|
our $false = do { bless \(my $dummy = 0) };
|
|
|
|
1;
|