File Coverage

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

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

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

use strict;
use warnings;
use base qw/Class::Accessor/;

__PACKAGE__->mk_accessors(qw/result_code ip user hostname message/);

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

sub is_success {
    my $self = shift;
    return $self->result_code eq '200';
}

sub _init {
    my ($self, $res) = @_;
    return unless $res->code =~ m/^(2|3)/;
    my $content = $res->content;
    return unless $content =~ m/\n(.*)<\/PRE>/s;
    $content = $1;
    my @lines = split m/\n/, $content;
    my %data;
    for my $line(@lines) {
        my ($key, $val) = split m/\:\s*/, $line;
        $key = lc($key);
        $self->$key($val);
    }
}

1;
__END__