File Coverage

blib/lib/Cisco/UCS/Interconnect.pm

Criterion	Covered	Total	%
statement	27	49	55.1
branch	0	10	0.0
condition			n/a
subroutine	9	16	56.2
pod	1	2	50.0
total	37	77	48.0

package Cisco::UCS::Interconnect;

use warnings;
use strict;

use Cisco::UCS::Common::SwitchCard;
use Cisco::UCS::Common::PSU;
use Cisco::UCS::Common::Fan;
use Cisco::UCS::Interconnect::Stats;
use Scalar::Util qw(weaken);
use Carp qw(croak);

our $VERSION = '0.50';

our @ATTRIBUTES	= qw(dn id model operability serial vendor);

our %ATTRIBUTES = (
	memory		=> 'totalMemory',
	mgmt_ip		=> 'oobIfIp',
	mgmt_gw		=> 'oobIfGw',
	mgmt_net	=> 'oobIfMask',
);

my %MMAP = (
	card	=> {
			type	=> 'equipmentSwitchCard',
			class	=> 'Cisco::UCS::Common::SwitchCard',
		   },
	fan	=> {
			type	=> 'equipmentFan',
			class	=> 'Cisco::UCS::Common::Fan'
		   },
		psu	=> {
			type	=> 'equipmentPsu',
			class	=> 'Cisco::UCS::Common::PSU'
		   },
);

sub new {
	my ( $class, %args ) = @_;

	my $self = {};
	bless $self, $class;

	defined $args{dn}
		? $self->{dn} = $args{dn}
		: croak 'dn not defined';

	defined $args{ucs}
		? weaken( $self->{ucs} = $args{ucs} )
		: croak 'ucs not defined';

	my %attr = %{ $self->{ucs}->resolve_dn(
				dn => $self->{dn}
			)->{outConfig}->{networkElement} };

	while ( my( $k, $v ) = each %attr ) { $self->{$k} = $v }

	my ($v) = $self->{ucs}->version =~ /\((.*)\)/;

	$MMAP{fan}{type} = 'equipmentFanModule' if( $v =~ /^4/);

        return $self;
}

{
	no strict 'refs';

	while ( my( $pseudo, $attribute ) = each %ATTRIBUTES ) {
		*{ __PACKAGE__ .'::'. $pseudo } = sub { return $_[0]->{$attribute} }
	}

        foreach my $attribute ( @ATTRIBUTES ) {
		*{ __PACKAGE__ .'::'. $attribute } = sub { return $_[0]->{$attribute} }
	}

	foreach my $m ( keys %MMAP ) {  # i.e. object
		my $gm 	= "get_$m";	# i.e. get_object
		my $gms	= "get_$m".'s'; # i.e. get_objects

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

			return (
				defined $self->{$m}->{$id}
					? $self->{$m}->{$id}
					: $self->$gm( $id )
			)
		};

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

			return ( $id ? $self->$gms( $id ) : undef )
		};

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

			return $self->{ucs}->_get_child_objects(
					id	=> $id,
					type	=> $MMAP{$m}{type},
					class	=> $MMAP{$m}{class},
					attr	=> $m,
					self	=> $self
			)
		};
	}
}

sub stats {
        my $self = shift;

        return Cisco::UCS::Interconnect::Stats->new(
		$self->{ucs}->resolve_dn(
			dn => "$self->{dn}/sysstats"
		)
	)
}

1;

__END__