File Coverage

blib/lib/IBM/V7000Unified.pm

Criterion	Covered	Total	%
statement	18	31	58.0
branch			n/a
condition			n/a
subroutine	6	11	54.5
pod	1	1	100.0
total	25	43	58.1

package IBM::V7000Unified;

use strict;
use warnings;

use IBM::StorageSystem;
use Carp qw(croak);

our $VERSION = '0.20';

our @METHODS=qw(array disk drive enclosure export fabric filesystem health
host interface iogroup mount node quota service snapshot task vdisk);

our @ATTRS = qw(auth_service_cert_set auth_service_configured
auth_service_enabled auth_service_pwd_set auth_service_type auth_service_url
auth_service_user_name bandwidth cluster_isns_IP_address cluster_locale
cluster_ntp_IP_address code_level console_IP email_contact email_contact2
email_contact2_alternate email_contact2_primary email_contact_alternate
email_contact_location email_contact_primary email_reply email_state
gm_inter_cluster_delay_simulation gm_intra_cluster_delay_simulation
gm_link_tolerance gm_max_host_delay has_nas_key id id_alias
inventory_mail_interval iscsi_auth_method iscsi_chap_secret layer location
name partnership rc_buffer_size relationship_bandwidth_limit
space_allocated_to_vdisks space_in_mdisk_grps statistics_frequency
statistics_status stats_threshold tier tier_capacity tier_free_capacity
time_zone total_allocated_extent_capacity total_free_space total_mdisk_capacity
total_overallocation total_used_capacity total_vdisk_capacity
total_vdiskcopy_capacity compression_cpu_pc cpu_pc drive_r_io drive_r_mb
drive_r_ms drive_w_io drive_w_mb drive_w_ms fc_io fc_mb iscsi_io iscsi_mb
mdisk_r_io mdisk_r_mb mdisk_r_ms mdisk_w_io mdisk_w_mb mdisk_w_ms sas_io sas_mb
total_cache_pc vdisk_r_io vdisk_r_mb vdisk_r_ms vdisk_w_io vdisk_w_mb
vdisk_w_ms write_cache_pc cluster_throughput cluster_client_throughput
cluster_create_delete_latency cluster_create_delete_operations
cluster_open_close_latency cluster_open_close_operations
cluster_read_write_operations cluster_read_write_latency);

foreach my $method ( @METHODS ) {
	{
		no strict 'refs';
		my $get_method	= "get_$method";
		my $get_methods	= "get_${method}s";

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

		*{ __PACKAGE__ ."::$get_method" } = sub {
			my $self = shift;
			$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__