CPAN::Groonga

        #
        $response->ok;

        #
        # Pass a Perl data structure to be encoded to JSON.
        #
        $response->content({
            rdapConformance => [q{rdap_level_0}],
       

registration data from an EPP server.
use base qw(Net::RDAP::Server);
use List::Util qw(any);
use JSON::PP;
use Net::EPP::Simple;
use Net::RDAP::EPPStatusMap;
use Net::EPP::ResponseCodes;
use vars qw(

igned => $JSON::PP::true,
            dsData => $self->generate_dnssec_dsdata($info->{DS}),
        };

    } elsif ($info->{DNSKEY}) {
        return {
            delegationSigned => $JSON::PP::true

data($info->{DNSKEY}),
        };

    } else {
        return {
            delegationSigned => $JSON::PP::false,
        };

    }
}

#
# Convert dsData info from an <info> response.
#
sub generate_

STRACT: An RDAP response object.
use base qw(HTTP::Response);
use JSON::XS;
use vars qw($JSON);
use strict;
use warnings;

$JSON = JSON::XS->new->utf8->canonical->pretty->convert_blessed;


sub new {

 $request;
    $self->{_server} = $server;

    $self->header('content-type' => 'application/rdap+json');
    $self->header('access-control-allow-origin' => '*');

    return $self;
}


sub request { 

>SUPER::content;

    } else {
        my $content = shift;
        return $self->SUPER::content($JSON->encode($content));

    }
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Net::RDAP::Server: