diff options
Diffstat (limited to 'lib/Net/Ping903.pm')
-rw-r--r-- | lib/Net/Ping903.pm | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/lib/Net/Ping903.pm b/lib/Net/Ping903.pm index 2ca2006..0c38d51 100644 --- a/lib/Net/Ping903.pm +++ b/lib/Net/Ping903.pm @@ -34,19 +34,19 @@ sub get_info_from_json { $self->_set_error; return } - if (my $ctype = $resp->header('Content-Type')) { - if ($ctype ne 'application/json') { - $self->{error} = { + if (my $ctype = $resp->header('Content-Type')) { + if ($ctype ne 'application/json') { + $self->{error} = { message => 'Unsupported Content-Type in response' }; return; } } else { - $self->{error} = { + $self->{error} = { message => 'No Content-Type in response' }; - return; - } + return; + } return JSON->new->decode($resp->decoded_content); } @@ -102,7 +102,7 @@ sub ipadd { if ($resp->is_success) { if ($resp->code != HTTP_CREATED) { $self->{error} = { message => 'Unexpected response code' }; - } + } } else { $self->_set_error } @@ -115,7 +115,7 @@ sub ipdel { $self->response($resp); unless ($resp->is_success) { $self->_set_error; - } + } return $resp->is_success; } @@ -123,10 +123,10 @@ sub set_ip_list { my ($self, $lref) = @_; my $json_text = JSON->new->encode({ - 'mode' => 'replace', + 'mode' => 'replace', 'ip-list' => $lref }); - + my $resp = $self->{ua}->post("$self->{baseurl}/config/ip-list", 'Content-Type' => 'application/json', 'Content' => $json_text); @@ -134,9 +134,8 @@ sub set_ip_list { $self->response($resp); unless ($resp->is_success) { $self->_set_error; - } + } return $resp->is_success; } - + 1; - |