File Coverage

blib/lib/WWW/Hetzner/Robot/IP.pm

Criterion	Covered	Total	%
statement	6	13	46.1
branch	0	8	0.0
condition			n/a
subroutine	2	3	66.6
pod	1	1	100.0
total	9	25	36.0

package WWW::Hetzner::Robot::IP;
# ABSTRACT: Hetzner Robot IP entity

our $VERSION = '0.100';

use Moo;
use namespace::clean;

has client => (
    is       => 'ro',
    required => 1,
    weak_ref => 1,
);

has ip                => ( is => 'ro', required => 1 );


has server_number     => ( is => 'ro' );


has server_ip         => ( is => 'ro' );


has locked            => ( is => 'ro' );


has separate_mac      => ( is => 'ro' );


has traffic_warnings  => ( is => 'rw' );


has traffic_hourly    => ( is => 'rw' );


has traffic_daily     => ( is => 'rw' );


has traffic_monthly   => ( is => 'rw' );


sub update {
    my ($self) = @_;
    my $body = {};
    $body->{traffic_warnings} = $self->traffic_warnings if defined $self->traffic_warnings;
    $body->{traffic_hourly}   = $self->traffic_hourly   if defined $self->traffic_hourly;
    $body->{traffic_daily}    = $self->traffic_daily    if defined $self->traffic_daily;
    $body->{traffic_monthly}  = $self->traffic_monthly  if defined $self->traffic_monthly;
    return $self->client->post("/ip/" . $self->ip, $body);
}



1.

__END__