File Coverage

blib/lib/Net/Proxmox/VE/Storage.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::Storage
# ABSTRACT: Store object

use strict;
use warnings;

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

use Carp qw( croak );


our @EXPORT  = qw( storages );

my $base = '/storages';


sub storage {

    my $self = shift or return;

    return $self->get($base);

}


sub get_storage {

    my $self = shift or return;

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

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

}


sub create_storage {

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

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

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

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

}


sub delete_storage {

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

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

}


sub update_storage {

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

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

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

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

}


1;

__END__