File Coverage

blib/lib/IBM/StorageSystem/Service.pm

Criterion	Covered	Total	%
statement	12	28	42.8
branch	0	12	0.0
condition			n/a
subroutine	4	8	50.0
pod	0	1	0.0
total	16	49	32.6

package IBM::StorageSystem::Service;

use strict;
use warnings;

use Carp qw(croak);

our $VERSION = '0.01';
our @ATTR = qw(active configured name);

foreach my $attr ( map lc, @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{'Name'} or croak __PACKAGE__ . ' constructor failed: mandatory Name argument not supplied';
	$self->{ name } = $args{Name};

	if ( defined $args{'Is_active'}     )	{ $self->{ active }	= $args{'Is_active'}	 }
	if ( defined $args{'Is_configured'} )	{ $self->{ configured }	= $args{'Is_configured'} }
	if ( defined $args{'Enabled'}	    )	{ $self->{ enabled }	= $args{'Enabled'}	 }
	if ( defined $args{'Configured'}    )	{ $self->{ configured }	= $args{'Configured'}	 }

        return $self
}

1;

__END__