Yet Another CPAN Grep

Google-DNS ( B/BA/BAYASHI/Google-DNS-0.02.tar.gz, BAYASHI, 2016; MetaCPAN )

Google-DNS/lib/Google/DNS.pm ( view source; MetaCPAN )

t;
use warnings;
use Carp qw/croak/;
use URI::Escape qw/uri_escape/;
use HTTP::Tiny;
use JSON::PP qw/decode_json/;
use Class::Accessor::Lite (
    rw => [qw/
        cd
        type
        endpoint

es->{status} $res->{reason}" unless $res->{success};
    my $json = $res->{content};
    return $json if $raw;
    return decode_json($json);
}

sub data {
    my ($self, $domain, $delimi) = @_;