view release on metacpan or  search on metacpan

lib/IBM/V7000Unified.pm  view on Meta::CPAN

			$self->{ss}->$get_method(@_)
		};

		*{ __PACKAGE__ ."::$get_methods" } = sub {
			my $self = shift;
			$self->{ss}->$get_methods(@_)
		}
	}
}

foreach my $attr ( @ATTRS ) {
	{
		no strict 'refs';
	
		*{ __PACKAGE__ ."::$attr" } = sub {
			my $self = shift;
			$self->{ss}->$attr(@_)
		};
	}
}

sub new {
        my ( $class, %args ) = @_;

        my $self = bless {} , $class;
        my %opts = (	user        => $self->{user}, 
			key_path    => $self->{key_path},
			batch_mode  => 1, 
			master_opts => '-q' 
		);

        $self->{ss} = IBM::StorageSystem->new( %args );

        return $self
}


1;

__END__

=head1 NAME

IBM::V7000Unified - Perl API to IBM V7000 Unified CLI

=head1 VERSION

Version 0.02

=head1 SYNOPSIS

IBM::V7000Unified is a Perl API to IBM V7000 Unified CLI.

=head1 METHODS

=head3 new 

        my $ibm = IBM::V7000Unified->new(
				user     => 'admin',
				host     => 'my-v7000-unified.company.com',
				key_path => '/path/to/my/.ssh/private_key'
			) or die "Couldn't create object! $!\n";

Constructor - creates a new IBM::V7000Unified object.  This method accepts 
three mandatory parameters and one optional parameter, the three mandatory 
parameters are:

=over 3

=item user

The username of the user with which to connect to the device.

=item host

The hostname or IP address of the device to which we are connecting.

=item key_path

Either a relative or fully qualified path to the private ssh key valid for the
user name and device to which we are connecting.  Please note that the 
executing user must have read permission to this key.

=back

The optional parameter is:

=over 3

=item stats_threshold

The period in seconds for which retrieved system statistics will be considered 
fresh, after which they will be re-retrieved.  If not set, the default value 
of this parameter is zero meaning that the statistics are not refreshed unless 
done explicitly via the B<refresh> method of an 
L<IBM:StorageSystem::Statistic> object.

=back

=head3 auth_service_cert_set

Specifies if the authentication service certificate has been set.

=head3 auth_service_configured

True if the auth_service_type is configured and either one of the following 
is true:

=over 3

=item * The auth_service_type is LDAP-only (if at least one LDAP server is configured)

=item * The auth_service_type is TIP-only:

=over 5

=item * The name, password, and URL are established

=item * An SSL certificate is created (if an HTTPS URL is available)

=back