File Coverage

blib/lib/IBM/StorageSystem/Array.pm

Criterion	Covered	Total	%
statement	15	26	57.6
branch	0	6	0.0
condition			n/a
subroutine	5	7	71.4
pod	0	1	0.0
total	20	40	50.0

package IBM::StorageSystem::Array;

use strict;
use warnings;

use Scalar::Util qw(weaken);
use Carp qw(croak);

our $VERSION = '0.01';
our @ATTR = qw(UID active_WWPN balanced block_size capacity controller_id controller_name
ctrl_LUN_no ctrl_WWNN ctrl_type fast_write_state max_path_count mdisk_grp_id mdisk_grp_name
mdisk_id mdisk_name mode path_count preferred_WWPN quorum_index raid_level raid_status
redundancy spare_goal spare_protection_min status strip_size tier);

foreach my $attr ( @ATTR ) {
        {
                no strict 'refs';
                *{ __PACKAGE__ .'::'. $attr } = sub {
                        my( $self, $val ) = @_;
			$val =~ s/\#/no/ if $val;
                        $self->{$attr} = $val if $val;
                        return $self->{$attr}
                }
        }
}

sub new {
        my( $class, $ibm, %args ) = @_;
        my $self = bless {}, $class;
        defined $args{mdisk_id} or croak 'Constructor failed: mandatory mdisk_id argument not supplied';
	weaken( $self->{__ibm} = $ibm );

        foreach my $attr ( @ATTR ) { $self->{$attr} = $args{$attr} }

        return $self
}

1;

__END__