File Coverage

blib/lib/Google/DNS.pm

Criterion	Covered	Total	%
statement	21	44	47.7
branch	0	14	0.0
condition	0	10	0.0
subroutine	7	10	70.0
pod	3	3	100.0
total	31	81	38.2

package Google::DNS;
use strict;
use warnings;
use Carp qw/croak/;
use URI;
use Furl;
use JSON qw/decode_json/;
use Class::Accessor::Lite (
    rw => [qw/
        cd
        type
        endpoint
        ua
    /],
);

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my %args  = @_;

    bless {
        cd       => ($args{cd} || $args{dnssec}) ? 1 : 0,
        type     => $args{type}     || '',
        endpoint => $args{endpoint} || 'https://dns.google.com/resolve',
        ua       => $args{ua}       || Furl->new,
    }, $class;
}

sub resolve {
    my ($self, $domain, $raw) = @_;

    croak "require domain" unless $domain;

    my $uri = URI->new($self->endpoint);
    $uri->query_form(name => $domain);
    if ($self->cd) {
        $uri->query_form(cd => $self->cd);
    }
    if ($self->type) {
        $uri->query_form(type => $self->type);
    }
    my $res = $self->ua->get($uri);
    croak "wrong response:". $res->status_line unless $res->is_success;
    my $json = $res->content;
    return $json if $raw;
    return decode_json($json);
}

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

    unless (defined $delimi) {
        $delimi = "\n";
    }

    my $hash = $self->resolve($domain);

    return join($delimi, map { $_->{data} } @{$hash->{Answer}});
}

1;

__END__