File Coverage

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

Criterion	Covered	Total	%
statement	12	131	9.1
branch	0	124	0.0
condition			n/a
subroutine	4	26	15.3
pod	22	22	100.0
total	38	303	12.5

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

use strict;
use warnings;

package Net::Proxmox::VE::Cluster;
$Net::Proxmox::VE::Cluster::VERSION = '0.37';
use parent 'Exporter';

use Carp qw( croak );

our @EXPORT  =
  qw(
    cluster
    cluster_backup
    create_cluster_backup
    get_cluster_backup
    update_cluster_backup
    delete_cluster_backup
    cluster_ha
    get_cluster_ha_config
    get_cluster_ha_changes
    commit_cluster_ha_changes
    revert_cluster_ha_changes
    cluster_ha_groups
    create_cluster_ha_groups
    get_cluster_ha_groups
    update_cluster_ha_groups
    delete_cluster_ha_group
    get_cluster_log
    get_cluster_options
    update_cluster_options
    get_cluster_resources
    get_cluster_status
    get_cluster_tasks
  );


my $base = '/cluster';

sub cluster {

    my $self = shift or return;

    return $self->get($base)

}


sub cluster_backup {

    my $self = shift or return;

    return $self->get($base, 'backup')

}


sub create_cluster_backup {

    my $self = shift or return;

    my @p = @_;

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

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

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

}


sub get_cluster_backup {

    my $self = shift or return;

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

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

}


sub update_cluster_backup {

    my $self = shift or return;

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

    my @p = @_;

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

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

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

}


sub delete_cluster_backup {

    my $self = shift or return;

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

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

}


sub cluster_ha {

    my $self = shift or return;

    return $self->get($base, 'ha')

}


sub get_cluster_ha_config {

    my $self = shift or return;

    return $self->get($base, 'ha', 'config')

}


sub get_cluster_ha_changes {

    my $self = shift or return;

    return $self->get($base, 'ha', 'changes')

}


sub commit_cluster_ha_changes {

    my $self = shift or return;

    return $self->post($base, 'ha', 'changes')

}


sub revert_cluster_ha_changes {

    my $self = shift or return;

    return $self->delete($base, 'ha', 'changes')

}


sub cluster_ha_groups {

    my $self = shift or return;

    return $self->get($base, 'ha','groups')

}


sub create_cluster_ha_groups {

    my $self = shift or return;

    my @p = @_;

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

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

    return $self->put( $base, 'ha', 'groups', \%args )

}


sub get_cluster_ha_groups {

    my $self = shift or return;

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

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

}



sub update_cluster_ha_groups {

    my $self = shift or return;

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

    my @p = @_;

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

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

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

}


sub delete_cluster_ha_group {

    my $self = shift or return;

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

    return $self->delete( $base, 'ha', 'groups', $a )

}


sub get_cluster_log {

    my $self = shift or return;

    my @p = @_;

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

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

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

}


sub get_cluster_options {

    my $self = shift or return;

    return $self->get($base, 'options')

}


sub update_cluster_options {

    my $self = shift or return;

    my @p = @_;

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

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

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

}



sub get_cluster_resources {

    my $self = shift or return;

    my @p = @_;

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

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

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

}



sub get_cluster_status {

    my $self = shift or return;

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

}


sub get_cluster_tasks {

    my $self = shift or return;

    return $self->get($base, 'tasks')

}


1;

__END__