File Coverage

blib/lib/DR/Msgpuck/Bool.pm

Criterion	Covered	Total	%
statement	25	33	75.7
branch	4	6	66.6
condition	1	3	33.3
subroutine	11	15	73.3
pod	0	3	0.0
total	41	60	68.3

use utf8;
use strict;
use warnings;


package DR::Msgpuck::Bool;

use overload
    bool        => sub { ${ $_[0] } },
    int         => sub { ${ $_[0] } },
    '!'         => sub { $_[0]->new(!${ $_[0] }) },
    '""'        => sub { ${ $_[0] } },
;

sub TO_JSON {
    my ($self) = @_;
    $$self ? 'true' : 'false';
}

sub TO_MSGPACK {
    my ($self) = @_;
    pack 'C', $$self ? 0xC3 : 0xC2;
}

sub new {
    my ($class, $v) = @_;
    $v = $v ? 1 : 0;
    bless \$v => ref($class) || $class;
}

package DR::Msgpuck::True;
BEGIN { our @ISA = ('DR::Msgpuck::Bool'); }

sub new {
    my ($class) = @_;
    $class->SUPER::new(1);
}

package DR::Msgpuck::False;
BEGIN { our @ISA = ('DR::Msgpuck::Bool'); }

sub new {
    my ($class) = @_;
    $class->SUPER::new(0);
}

1;

__END__