FAS.pm

# $Id: FAS.pm,v 1.1 2012/01/31 10:30:45 gonter Exp $

=pod

=head1 NAME

  NetApp::FAS   -- Generic NetApp Module for FAS series SANs

=head1 SYNOPSIS

  use NetApp::FAS;
  my $CX= new NetApp::FAS (%parameters);

=head1 DESCRIPTION

=cut

use strict;

package NetApp::FAS;

use NetApp::FAS::Controller;

my %SUPPORTED_MODEL= map { $_ => 1 } qw(FAS6240);

sub new
{
  my $class= shift;

  my $obj=
  {
    'wwpn' => {},
    '_cache_' => {},
  };
  bless $obj, $class;

  $obj->set (@_);

  $obj;
}

sub set
{
  my $obj= shift;
  my %par= @_;

  my %res;
  foreach my $par (keys %par)
  {
    $res{$par}= $obj->{$par};
    $obj->{$par}= $par{$par};
  }

  (wantarray) ? %res : \%res;
}

sub get
{
  my $obj= shift;
  my @par= @_;

  my @res;
  foreach my $par (@par)
  {
    push (@res, $obj->{$par});
  }

### print __LINE__, " get: res=", join (' ', @res), "\n";
  (wantarray) ? @res : \@res;
}