CPAN::Groonga

l = ($v);
            if ($v->can('TO_JSON')) {
                push @l => $v->TO_JSON;
            }
            
            for (@l) {
                if ('JSON::XS::Boolean' eq ref $_) {
         

       if ('JSON::PP::Boolean' eq ref $_) {
                    return pack 'C', 0xC3 if $_;
                    return pack 'C', 0xC2;
                }
            }
            # TO_JSON return pur

b TO_JSON {
    my ($self) = @_;

    state ($true, $false);

    unless (defined $true) {
        if (eval "require JSON::XS; 1") {
            $true = JSON::XS::true();
            $false = JSON::XS

();
        } elsif (eval "require JSON; 1") {
            $true = JSON::true();
            $false = JSON::false();
        } else {
            croak "JSON or JSON::XS must be installed";
        }

ack 'Cl>',  0xD2, $v            if $v <= 0x7FFF_FFFF;
    return pack 'Cq>',  0xD3, $v;
}

sub TO_JSON {
    my ($self) = @_;
    return undef unless defined $$self;
    return int $$self;
}


=head1 

pack 'CS>/a*', 0xDA, $v          if $len <= 0xFFFF;
    return pack 'CL>/a*', 0xDB, $v;
}

sub TO_JSON {
    my ($self) = @_;
    return $$self;
}

=head1 NAME

DR::Tnt::Msgpack::Types::Str - containe

ack 'CS>/a*', 0xC5, $v          if $len <= 0xFFFF;
    return pack 'CL>/a*',  0xC6, $v;
}

sub TO_JSON {
    my ($self) = @_;
    return $$self;
}

=head1 NAME

DR::Tnt::Msgpack::Types::Blob - contain