File Coverage

blib/lib/Net/DNS/LivedoorDomain/DDNS.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	26	28	92.8

package Net::DNS::LivedoorDomain::DDNS;

use strict;
use warnings;
use Carp;
use LWP::UserAgent;
use HTTP::Headers;
use HTTP::Request;
use Net::DNS::LivedoorDomain::DDNS::Response;

our $VERSION = '0.01';

use constant DDNS_URL => 'http://domain.livedoor.com/webapp/dice/update';

sub new {
    my ($class) = @_;
    my $self = bless {}, $class;
    $self;
}

sub update {
    my $self = shift;
    my %args = (
                username => undef,
                password => undef,
                hostname => undef,
                ip => undef,
                @_,
            );
    croak 'username is required' unless $args{username};
    croak 'password is required' unless $args{password};
    croak 'hostname is required' unless $args{hostname};

    my $header = HTTP::Headers->new;
    $header->authorization_basic($args{username}, $args{password});
    my $query = join '&',
        map { sprintf "%s=%s", $_, $args{$_} if defined $args{$_} }
            qw/hostname ip/;
    my $req = HTTP::Request->new('GET' => DDNS_URL .'?'. $query, $header);
    my $ua = LWP::UserAgent->new;
    my $res = $ua->request($req);
    return Net::DNS::LivedoorDomain::DDNS::Response->new($res);
}

1;

__END__