CPAN::Groonga

package Net::LDNS::Packet;

use 5.10.1;

use Net::LDNS;

use MIME::Base64;

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

    return {
        'Net::LDNS::Packet' => {
            data       => encode_base64(