File Coverage

blib/lib/IBM/StorageSystem/Enclosure.pm

Criterion	Covered	Total	%
statement	30	52	57.6
branch	0	10	0.0
condition			n/a
subroutine	10	18	55.5
pod	1	1	100.0
total	41	81	50.6

package IBM::StorageSystem::Enclosure;

use strict;
use warnings;

use IBM::StorageSystem::Enclosure::Canister;
use IBM::StorageSystem::Enclosure::Battery;
use IBM::StorageSystem::Enclosure::Slot;
use IBM::StorageSystem::Enclosure::PSU;
use Scalar::Util qw(weaken);
use Carp qw(croak);

our $VERSION = '0.01';
our @ATTR = qw(FRU_identity FRU_part_number IO_group_id IO_group_name drive_slots
error_sequence_number fault_LED firmware_level_1 firmware_level_2 id identify_LED
machine_part_number managed online_PSUs online_canisters product_MTM serial_number
status total_PSUs total_canisters type);

our $OBJ = {
		psu => {
			bcmd	=> 'lsenclosurepsu -nohdr -delim :',
			cmd	=> 'lsenclosurepsu -psu',
			id	=> 'PSU_id',
			class	=> 'IBM::StorageSystem::Enclosure::PSU',
			type	=> 'psu',
		},
		battery => {
			bcmd	=> 'lsenclosurebattery -nohdr -delim :',
			cmd	=> 'lsenclosurebattery -battery',
			id	=> 'battery_id',
			class	=> 'IBM::StorageSystem::Enclosure::Battery',
			type	=> 'battery'
		},
		slot => {
			bcmd	=> 'lsenclosureslot -nohdr -delim :',
			cmd	=> 'lsenclosureslot -slot',
			id	=> 'slot_id',
			class	=> 'IBM::StorageSystem::Enclosure::Slot',
			type	=> 'slot'
		},
		canister => {
			bcmd	=> 'lsenclosurecanister -nohdr -delim :',
			cmd	=> 'lsenclosurecanister -canister',
			id	=> 'canister_id',
			class	=> 'IBM::StorageSystem::Enclosure::Canister',
			type	=> 'slot'
		},
	};

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

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

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

        return $self
}

foreach my $obj ( keys %{ $OBJ } ) {
	{
		no strict 'refs';
		my $m = 'get_'.$obj.'s';

		*{ __PACKAGE__ ."::$obj" } = sub {
			my( $self, $id ) = @_;
			defined $id or return;
			return ( $self->{$obj}->{$id} ? $self->{$obj}->{$id} : $self->$m( $id ) )
		};

		*{ __PACKAGE__ .'::get_'. $obj } = sub { return $_[0]->$m( $_[1] ) };

		*{ __PACKAGE__ ."::$m" } = sub {
			my( $self, $id ) = @_;

			my @objects = map { ( split /:/, $_ )[1] . " $self->{id}" }
				      split /\n/, $self->{__ibm}->__cmd( $OBJ->{$obj}->{bcmd} ." $self->{id}" );

			my %a = ( objects => [@objects], cmd => $OBJ->{$obj}->{cmd}, class => $OBJ->{$obj}->{class}, nocache => 1 );

			@objects = $self->{__ibm}->__get_ml_objects( %a );

			foreach my $object ( @objects ) { $self->{ $OBJ->{$obj}->{type} }->{ $object->{ $OBJ->{$obj}->{id} } } = $object }

			return ( defined $id ? $self->{ $OBJ->{$obj}->{type} }->{$id} : @objects )
		}
	}
}

1;

__END__