File Coverage

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

Criterion	Covered	Total	%
statement	12	45	26.6
branch	0	36	0.0
condition			n/a
subroutine	4	9	44.4
pod	5	5	100.0
total	21	95	22.1

#!/bin/false
# vim: softtabstop=2 tabstop=2 shiftwidth=2 ft=perl expandtab smarttab
# PODNAME: Net::Proxmox::VE::Pools
# ABSTRACT: Presents a pool object

use strict;
use warnings;

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

use Carp qw( croak );


our @EXPORT  = qw( pools get_pool create_pool delete_pool update_pool );

my $base = '/pools';


sub pools {

    my $self = shift or return;

    return $self->get($base);

}


sub get_pool {

    my $self = shift or return;

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

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

}


sub create_pool {

    my $self = shift or return;
    my @p = @_;

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

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

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

}


sub delete_pool {

    my $self = shift or return;
    my $a    = shift or croak 'No argument given for delete_pool()';

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

}


sub update_pool {

    my $self   = shift or return;
    my $poolid = shift or croak 'No poolid provided for update_pool()';
    croak 'poolid must be a scalar for update_pool()' if ref $poolid;
    my @p = @_;

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

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

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

}


1;

__END__