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.022';

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);

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__