perl/lib/Data/MessagePack/Boolean.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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;