File Coverage

blib/lib/Net/Proxmox/VE/Nodes.pm

Criterion	Covered	Total	%
statement	12	323	3.7
branch	0	396	0.0
condition			n/a
subroutine	4	42	9.5
pod	38	38	100.0
total	54	799	6.7

#!/bin/false
# vim: softtabstop=2 tabstop=2 shiftwidth=2 ft=perl expandtab smarttab
# PODNAME: Net::Proxmox::VE::Nodes
# ABSTRACT: Functions for the 'nodes' portion of the API

use strict;
use warnings;

package Net::Proxmox::VE::Nodes;
$Net::Proxmox::VE::Nodes::VERSION = '0.38';
use parent 'Exporter';

use Carp qw( croak );

our @EXPORT  = qw( nodes );


my $base = '/nodes';

sub nodes {

    my $self = shift or return;

    return $self->get($base)

}


sub get_nodes {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes()';
    croak 'node must be a scalar for get_nodes()' if ref $a;

    return $self->get( $base, $a )

}


sub get_nodes_aplinfo {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes_aplinfo()';
    croak 'node must be a scalar for get_nodes_aplinfo()' if ref $a;

    return $self->get( $base, $a, 'aplinfo' )

}


sub create_nodes_aplinfo {

    my $self = shift or return;

    my $a = shift or croak 'No node for create_nodes_aplinfo()';
    croak 'node must be a scalar for create_nodes_aplinfo()' if ref $a;

    my @p = @_;

    croak 'No arguments for create_nodes_aplinfo()' unless @p;
    my %args;

    if ( @p == 1 ) {
        croak 'Single argument not a hash for create_nodes_aplinfo()'
          unless ref $a eq 'HASH';
        %args = %{ $p[0] };
    }
    else {
        croak 'Odd number of arguments for create_nodes_aplinfo()'
          if ( scalar @p % 2 != 0 );
        %args = @p;
    }

    return $self->post( $base, $a, 'aplinfo', \%args )

}


sub get_nodes_dns {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes_dns()';
    croak 'node must be a scalar for get_nodes_dns()' if ref $a;

    return $self->get( $base, $a, 'dns' )

}


sub update_nodes_dns {

    my $self = shift or return;

    my $a = shift or croak 'No node for update_nodes_dns()';
    croak 'node must be a scalar for update_nodes_dns()' if ref $a;

    my @p = @_;

    croak 'No arguments for update_nodes_dns()' unless @p;
    my %args;

    if ( @p == 1 ) {
        croak 'Single argument not a hash for update_nodes_dns()'
          unless ref $a eq 'HASH';
        %args = %{ $p[0] };
    }
    else {
        croak 'Odd number of arguments for update_nodes_dns()'
          if ( scalar @p % 2 != 0 );
        %args = @p;
    }

    return $self->put( $base, $a, 'dns', \%args )

}


sub get_nodes_rrd {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes_rrd()';
    croak 'node must be a scalar for get_nodes_rrd()' if ref $a;

    my @p = @_;

    croak 'No arguments for get_nodes_rrd()' unless @p;
    my %args;

    if ( @p == 1 ) {
        croak 'Single argument not a hash for get_nodes_rrd()'
          unless ref $a eq 'HASH';
        %args = %{ $p[0] };
    }
    else {
        croak 'Odd number of arguments for get_nodes_rrd()'
          if ( scalar @p % 2 != 0 );
        %args = @p;
    }

    return $self->get( $base, $a, 'rrd', \%args )

}


sub get_nodes_rrddata {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes_rrddata()';
    croak 'node must be a scalar for get_nodes_rrddata()' if ref $a;

    my @p = @_;

    croak 'No arguments for get_nodes_rrddata()' unless @p;
    my %args;

    if ( @p == 1 ) {
        croak 'Single argument not a hash for get_nodes_rrddata()'
          unless ref $a eq 'HASH';
        %args = %{ $p[0] };
    }
    else {
        croak 'Odd number of arguments for get_nodes_rrddata()'
          if ( scalar @p % 2 != 0 );
        %args = @p;
    }

    return $self->get( $base, $a, 'rrddata', \%args )

}


sub get_nodes_status {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes_status()';
    croak 'node must be a scalar for get_nodes_status()' if ref $a;

    return $self->get( $base, $a, 'status' )

}



sub update_nodes_status {

    my $self = shift or return;

    my $a = shift or croak 'No node for update_nodes_status()';
    croak 'node must be a scalar for update_nodes_status()' if ref $a;

    my @p = @_;

    croak 'No arguments for update_nodes_status()' unless @p;
    my %args;

    if ( @p == 1 ) {
        croak 'Single argument not a hash for update_nodes_status()'
          unless ref $a eq 'HASH';
        %args = %{ $p[0] };
    }
    else {
        croak 'Odd number of arguments for update_nodes_status()'
          if ( scalar @p % 2 != 0 );
        %args = @p;
    }

    return $self->post( $base, $a, 'status', \%args )


}


sub get_nodes_subscription {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes_subscription()';
    croak 'node must be a scalar for get_nodes_subscription()' if ref $a;

    return $self->get( $base, $a, 'subscription' )

}


sub create_nodes_subscription {

    my $self = shift or return;

    my $a = shift or croak 'No node for create_nodes_subscription()';
    croak 'node must be a scalar for create_nodes_subscription()' if ref $a;

    my @p = @_;

    croak 'No arguments for create_nodes_subscription()' unless @p;
    my %args;

    if ( @p == 1 ) {
        croak 'Single argument not a hash for create_nodes_subscription()'
          unless ref $a eq 'HASH';
        %args = %{ $p[0] };
    }
    else {
        croak 'Odd number of arguments for create_nodes_subscription()'
          if ( scalar @p % 2 != 0 );
        %args = @p;
    }

    return $self->post( $base, $a, 'subscription', \%args )

}


sub update_nodes_subscription_key {

    my $self = shift or return;

    my $a = shift or croak 'No node for update_nodes_subscription_key()';
    croak 'node must be a scalar for update_nodes_subscription_key()' if ref $a;

    my @p = @_;

    croak 'No arguments for update_nodes_subscription_key()' unless @p;
    my %args;

    if ( @p == 1 ) {
        croak 'Single argument not a hash for update_nodes_subscription_key()'
          unless ref $a eq 'HASH';
        %args = %{ $p[0] };
    }
    else {
        croak 'Odd number of arguments for update_nodes_subscription_key()'
          if ( scalar @p % 2 != 0 );
        %args = @p;
    }

    return $self->put( $base, $a, 'subscription', \%args )

}


sub get_nodes_syslog {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes_syslog()';
    croak 'node must be a scalar for get_nodes_syslog()' if ref $a;

    my @p = @_;

    croak 'No arguments for get_nodes_syslog()' unless @p;
    my %args;

    if ( @p == 1 ) {
        croak 'Single argument not a hash for get_nodes_syslog()'
          unless ref $a eq 'HASH';
        %args = %{ $p[0] };
    }
    else {
        croak 'Odd number of arguments for get_nodes_syslog()'
          if ( scalar @p % 2 != 0 );
        %args = @p;
    }

    return $self->get( $base, $a, 'syslog', \%args )

}


sub get_nodes_time {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes_time()';
    croak 'node must be a scalar for get_nodes_time()' if ref $a;

    return $self->get( $base, $a, 'time' )

}


sub update_nodes_time {

    my $self = shift or return;

    my $a = shift or croak 'No node for update_nodes_time()';
    croak 'node must be a scalar for update_nodes_time()' if ref $a;

    my @p = @_;

    croak 'No arguments for update_nodes_time()' unless @p;
    my %args;

    if ( @p == 1 ) {
        croak 'Single argument not a hash for update_nodes_time()'
          unless ref $a eq 'HASH';
        %args = %{ $p[0] };
    }
    else {
        croak 'Odd number of arguments for update_nodes_time()'
          if ( scalar @p % 2 != 0 );
        %args = @p;
    }

    return $self->put( $base, $a, 'time', \%args )

}


sub get_nodes_ubcfailcnt {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes_ubcfailcnt()';
    croak 'node must be a scalar for get_nodes_ubcfailcnt()' if ref $a;

    return $self->get( $base, $a, 'ubcfailcnt' )

}


sub get_nodes_version {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes_version()';
    croak 'node must be a scalar for get_nodes_version()' if ref $a;

    return $self->get( $base, $a, 'version' )

}


sub create_nodes_vncshell {

    my $self = shift or return;

    my $a = shift or croak 'No node for create_nodes_vncshell()';
    croak 'node must be a scalar for create_nodes_vncshell()' if ref $a;

    return $self->post( $base, $a, 'vncshell' )

}


sub create_nodes_vzdump {

    my $self = shift or return;

    my $a = shift or croak 'No node for create_nodes_vzdump()';
    croak 'node must be a scalar for create_nodes_vzdump()' if ref $a;

    my @p = @_;

    croak 'No arguments for create_nodes_vzdump()' unless @p;
    my %args;

    if ( @p == 1 ) {
        croak 'Single argument not a hash for create_nodes_vzdump()'
          unless ref $a eq 'HASH';
        %args = %{ $p[0] };
    }
    else {
        croak 'Odd number of arguments for create_nodes_vzdump()'
          if ( scalar @p % 2 != 0 );
        %args = @p;
    }

    return $self->post( $base, $a, 'dns', \%args )

}


sub nodes_network {

    my $self = shift or return;

    my $a = shift or croak 'No node for nodes_network()';
    croak 'node must be a scalar for nodes_network()' if ref $a;

    my @p = @_;

    croak 'No arguments for nodes_network()' unless @p;
    my %args;

    if ( @p == 1 ) {
        croak 'Single argument not a hash for nodes_network()'
          unless ref $a eq 'HASH';
        %args = %{ $p[0] };
    }
    else {
        croak 'Odd number of arguments for nodes_network()'
          if ( scalar @p % 2 != 0 );
        %args = @p;
    }

    return $self->get( $base, $a, 'network', \%args )

}


sub create_nodes_network {

    my $self = shift or return;

    my $a = shift or croak 'No node for create_nodes_network()';
    croak 'node must be a scalar for create_nodes_network()' if ref $a;

    my @p = @_;

    croak 'No arguments for create_nodes_network()' unless @p;
    my %args;

    if ( @p == 1 ) {
        croak 'Single argument not a hash for create_nodes_network()'
          unless ref $a eq 'HASH';
        %args = %{ $p[0] };
    }
    else {
        croak 'Odd number of arguments for create_nodes_network()'
          if ( scalar @p % 2 != 0 );
        %args = @p;
    }

    return $self->post( $base, $a, 'network', \%args )

}


sub revert_nodes_network {

    my $self = shift or return;

    my $a = shift or croak 'No node for revert_nodes_network()';
    croak 'node must be a scalar for revert_nodes_network()' if ref $a;

    return $self->delete( $base, $a )

}



sub get_nodes_network_iface {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes_network_iface()';
    my $b = shift or croak 'No iface for get_nodes_network_iface()';

    croak 'node must be a scalar for get_nodes_network_iface()' if ref $a;
    croak 'iface must be a scalar for get_nodes_network_iface()' if ref $b;

    return $self->get( $base, $a, 'network', $b )

}


sub update_nodes_network_iface {

    my $self = shift or return;

    my $a = shift or croak 'No node for update_nodes_network_iface()';
    my $b = shift or croak 'No iface for update_nodes_network_iface()';

    croak 'node must be a scalar for update_nodes_network_iface()' if ref $a;
    croak 'iface must be a scalar for update_nodes_network_iface()' if ref $b;

    my @p = @_;

    croak 'No arguments for update_nodes_network_iface()' unless @p;
    my %args;

    if ( @p == 1 ) {
        croak 'Single argument not a hash for update_nodes_network_iface()'
          unless ref $a eq 'HASH';
        %args = %{ $p[0] };
    }
    else {
        croak 'Odd number of arguments for update_nodes_network_iface()'
          if ( scalar @p % 2 != 0 );
        %args = @p;
    }

    return $self->post( $base, $a, 'network', $b, \%args )

}


sub delete_nodes_network_iface {

    my $self = shift or return;

    my $a = shift or croak 'No node for delete_nodes_network_iface()';
    my $b = shift or croak 'No iface for delete_nodes_network_iface()';

    croak 'node must be a scalar for delete_nodes_network_iface()' if ref $a;
    croak 'iface must be a scalar for delete_nodes_network_iface()' if ref $b;

    return $self->get( $base, $a, 'network', $b )

}


sub nodes_openvz {

    my $self = shift or return;

    my $a = shift or croak 'No node for nodes_openvz()';
    croak 'node must be a scalar for nodes_openvz()' if ref $a;

    return $self->get( $base, $a, 'openvz')

}


sub create_nodes_openvz {

    my $self = shift or return;

    my $a = shift or croak 'No node for create_nodes_openvz()';
    croak 'node must be a scalar for create_nodes_openvz()' if ref $a;

    my @p = @_;

    croak 'No arguments for create_nodes_openvz()' unless @p;
    my %args;

    if ( @p == 1 ) {
        croak 'Single argument not a hash for create_nodes_openvz()'
          unless ref $a eq 'HASH';
        %args = %{ $p[0] };
    }
    else {
        croak 'Odd number of arguments for create_nodes_openvz()'
          if ( scalar @p % 2 != 0 );
        %args = @p;
    }

    return $self->get( $base, $a, 'openvz', \%args )

}


sub get_nodes_openvz {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes_openvz()';
    croak 'node must be a scalar for get_nodes_openvz()' if ref $a;

    my $b = shift or croak 'No node for get_nodes_openvz()';
    croak 'node must be a scalar for get_nodes_openvz()' if ref $b;

    return $self->get( $base, $a, 'openvz', $b )

}


sub delete_nodes_openvz {

    my $self = shift or return;

    my $a = shift or croak 'No node for delete_nodes_openvz()';
    croak 'node must be a scalar for delete_nodes_openvz()' if ref $a;

    my $b = shift or croak 'No node for delete_nodes_openvz()';
    croak 'node must be a scalar for delete_nodes_openvz()' if ref $b;

    return $self->delete( $base, $a, 'openvz', $b )

}


sub get_nodes_openvz_status {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes_openvz_status()';
    croak 'node must be a scalar for get_nodes_openvz_status()' if ref $a;

    my $b = shift or croak 'No node for get_nodes_openvz_status()';
    croak 'node must be a scalar for get_nodes_openvz_status()' if ref $b;

    return $self->get( $base, $a, 'openvz', $b, 'status' )

}


sub get_nodes_openvz_status_current {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes_openvz_status_current()';
    croak 'node must be a scalar for get_nodes_openvz_status_current()' if ref $a;

    my $b = shift or croak 'No node for get_nodes_openvz_status_current()';
    croak 'node must be a scalar for get_nodes_openvz_status_current()' if ref $b;

    return $self->get( $base, $a, 'openvz', $b, 'status', 'current' )

}


sub create_nodes_openvz_status_mount {

    my $self = shift or return;

    my $a = shift or croak 'No node for create_nodes_openvz_status_mount()';
    croak 'node must be a scalar for create_nodes_openvz_status_mount()' if ref $a;

    my $b = shift or croak 'No node for create_nodes_openvz_status_mount()';
    croak 'node must be a scalar for create_nodes_openvz_status_mount()' if ref $b;

    return $self->post( $base, $a, 'openvz', $b, 'status', 'mount' )

}


sub create_nodes_openvz_status_shutdown {

    my $self = shift or return;

    my $a = shift or croak 'No node for create_nodes_openvz_status_shutdown()';
    croak 'node must be a scalar for create_nodes_openvz_status_shutdown()' if ref $a;

    my $b = shift or croak 'No node for create_nodes_openvz_status_shutdown()';
    croak 'node must be a scalar for create_nodes_openvz_status_shutdown()' if ref $b;

    my @p = @_;

    croak 'No arguments for create_nodes_openvz_status_shutdown()' unless @p;
    my %args;

    if ( @p == 1 ) {
        croak 'Single argument not a hash for create_nodes_openvz_status_shutdown()'
          unless ref $a eq 'HASH';
        %args = %{ $p[0] };
    }
    else {
        croak 'Odd number of arguments for create_nodes_openvz_status_shutdown()'
          if ( scalar @p % 2 != 0 );
        %args = @p;
    }

    return $self->post( $base, $a, 'openvz', $b, 'status', 'shutdown', \%args )

}


sub create_nodes_openvz_status_start {

    my $self = shift or return;

    my $a = shift or croak 'No node for create_nodes_openvz_status_start()';
    croak 'node must be a scalar for create_nodes_openvz_status_start()' if ref $a;

    my $b = shift or croak 'No node for create_nodes_openvz_status_start()';
    croak 'node must be a scalar for create_nodes_openvz_status_start()' if ref $b;

    return $self->post( $base, $a, 'openvz', $b, 'status', 'start' )

}


sub create_nodes_openvz_status_stop {

    my $self = shift or return;

    my $a = shift or croak 'No node for create_nodes_openvz_status_stop()';
    croak 'node must be a scalar for create_nodes_openvz_status_stop()' if ref $a;

    my $b = shift or croak 'No node for create_nodes_openvz_status_stop()';
    croak 'node must be a scalar for create_nodes_openvz_status_stop()' if ref $b;

    return $self->post( $base, $a, 'openvz', $b, 'status', 'start' )

}


sub get_nodes_openvz_status_ubc {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes_openvz_status_ubc()';
    croak 'node must be a scalar for get_nodes_openvz_status_ubc()' if ref $a;

    my $b = shift or croak 'No node for get_nodes_openvz_status_ubc()';
    croak 'node must be a scalar for get_nodes_openvz_status_ubc()' if ref $b;

    return $self->post( $base, $a, 'openvz', $b, 'status', 'ubc' )

}


sub get_nodes_openvz_status_umount {

    my $self = shift or return;

    my $a = shift or croak 'No node for get_nodes_openvz_status_umount()';
    croak 'node must be a scalar for get_nodes_openvz_status_umount()' if ref $a;

    my $b = shift or croak 'No node for get_nodes_openvz_status_umount()';
    croak 'node must be a scalar for get_nodes_openvz_status_umount()' if ref $b;

    return $self->post( $base, $a, 'openvz', $b, 'status', 'umount' )

}


1;

__END__