API-PureStorage

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

{
   "abstract" : "API Wrapper for Pure Storage devices.",
   "author" : [
      "Phil Pollard <bennie@cpan.org>"
   ],
   "dynamic_config" : 1,
   "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.150005",
   "license" : [
      "artistic_2"
   ],
   "meta-spec" : {
      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
      "version" : "2"

META.yml  view on Meta::CPAN

---
abstract: 'API Wrapper for Pure Storage devices.'
author:
  - 'Phil Pollard <bennie@cpan.org>'
build_requires: {}
dynamic_config: 1
generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.150005'
license: artistic_2
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: API-PureStorage
no_index:

config.txt  view on Meta::CPAN

### Config

$module = 'API::PureStorage';

$author  = 'Phil Pollard <bennie@cpan.org>';
$license = 'artistic_2';

$abstract    = 'API Wrapper for Pure Storage devices.';
$description = $abstract;

$perl_ver = '5.006001';

%requires = (
    'JSON' => 0,
    'Net::SSL' => 0,

lib/API/PureStorage.pm  view on Meta::CPAN

                      undef;

    unless ( $api_version ) {
      die "API version 1.3 or 1.4 is not supported by host: $self->{host}\n";
    }

    $self->{api_version} = $api_version;

    ### Set the Session Cookie

    my $ret = $self->_api_post("/api/$api_version/auth/session", { api_token => $self->{token} });

    return $self;
}

sub DESTROY {
  my $self = shift @_;
  my $ret = $self->{client}->DELETE("/api/$self->{api_version}/auth/session") if defined $self->{api_version};
  unlink $self->{cookie_file};
}

### Methods

sub array_info {
    my $self = shift @_;
    my $ref = $self->_api_get("/api/$self->{api_version}/array?space=true");
    return wantarray ? @$ref : $ref;
}