File Coverage

blib/lib/IBM/StorageSystem/Interface.pm

Criterion	Covered	Total	%
statement	12	28	42.8
branch	0	6	0.0
condition			n/a
subroutine	4	6	66.6
pod	0	1	0.0
total	16	41	39.0

package IBM::StorageSystem::Interface;

use strict;
use warnings;

use Carp qw(croak);

our $VERSION = '0.02';
our @ATTR = qw(Node:Interface Node Interface MAC Master/Subordinate Bonding_mode
Transmit_hash_policy Up/Down Speed IP-Addresses MTU);

foreach my $attr ( @ATTR ) {
        {
		my $mattr = lc $attr;
		$mattr =~ s/\//_or_/g;
		$mattr =~ s/-/_/g;

		foreach my $s ( qw(ip mac mtu) ) {
			my $u = uc $s;
			$mattr =~ s/(^|_)($s)/$1$u/g
		}

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

sub new {
        my( $class, $ibm, %args ) = @_;
        my $self = bless {}, $class;

        defined $args{'Node:Interface'}
		or croak __PACKAGE__ . ' Constructor failed: mandatory Node:Interface argument not supplied';

	foreach my $attr ( keys %args ) {
		my $mattr = lc $attr;
		$mattr =~ s/\//_or_/g;
		$mattr =~ s/-/_/g;

		foreach my $s ( qw(ip mac mtu) ) {
			my $u = uc $s;
			$mattr =~ s/(^|_)($s)/$1$u/g
		}

		$self->{$mattr} = $args{$attr}
	}

	return $self;
}

1;

__END__