view release on metacpan or  search on metacpan

lib/Cisco/UCS/Chassis/Stats.pm  view on Meta::CPAN

package Cisco::UCS::Chassis::Stats;

use strict;
use warnings;

use Scalar::Util qw(weaken);

our $VERSION = '0.51';

our %V_MAP = (
	inputPower	=> 'input_power',
	inputPowerAvg	=> 'input_power_avg',
	inputPowerMax	=> 'input_power_max',
	inputPowerMin	=> 'input_power_min',
	outputPower	=> 'output_power',
	outputPowerAvg	=> 'output_power_avg',
	outputPowerMax	=> 'output_power_max',
	outputPowerMin	=> 'output_power_min',
	thresholded	=> 'thresholded',
	suspect		=> 'suspect',
	timeCollected	=> 'time_collected',
);

{ no strict 'refs';

	while ( my ($attribute, $pseudo) = each %V_MAP ) {
		*{ __PACKAGE__ .'::'. $pseudo } = sub {
			my $self = shift;
			return $self->{$attribute}
		}
	}
}

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

	my $self = bless {}, $class;
	
	foreach my $var ( keys %$args ) {
		$self->{ $var } = $args->{ $var };
	}

	return $self
}

1;

__END__

=pod

=head1 NAME

Cisco::UCS::Chassis::Stats - Class for operations with Cisco UCS chassis power 
statistics.

=cut

=head1 SYNOPSIS

	# Print all blades in all chassis along with the chassis current 
	# output power and each blades current input power both in watts and 
	# as a percentage of the chassis input power level.

	map { 
		my $c_power = $_->stats->output_power;