File Coverage

blib/lib/IBM/StorageSystem/Enclosure/Canister.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch	0	4	0.0
condition			n/a
subroutine	4	20	20.0
pod	0	1	0.0
total	16	46	34.7

package IBM::StorageSystem::Enclosure::Canister;

use strict;
use warnings;

use Carp qw(croak);

our @ATTR = qw(FRU_identity FRU_part_number SAS_port_1_status SAS_port_2_status SES_status WWNN canister_id enclosure_id error_sequence_number fault_LED firmware_level firmware_level_2 firmware_level_3 firmware_level_4 firmware_level_5 node_id node_name status temperature type);

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;
        defined $args{canister_id} or croak 'Constructor failed: mandatory argument canister_id not supplied';

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

        return $self
}

1;

__END__