view release on metacpan or  search on metacpan

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

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

use warnings;
use strict;

use Carp qw(croak);
use Scalar::Util qw(weaken);

our $VERSION = '0.51';

our %ATTRIBUTES	= (
	ambientTemp	=> 'ambient_temp',
	ambientTempAvg	=> 'ambient_temp_avg',
	ambientTempMax	=> 'ambient_temp_max',
	ambientTempMin	=> 'ambient_temp_min',
	id 		=> 'id',
	input210v	=> 'input_210v',
	input210vAvg	=> 'input_210v_avg',
	input210vMax	=> 'output_210v_max',
	input210vMin	=> 'input_210v_min',
	model 		=> 'model',
	operability 	=> 'operability',
	operational	=> 'operState',
	output12v	=> 'output_12v',
	output12vAvg	=> 'output_12v_avg',
	output12vMin	=> 'output_12v_min',
	output12vMax	=> 'output_12v_max',
	output3v3	=> 'output_3v3',
	output3v3Avg	=> 'output_3v3_avg',
	output3v3Max	=> 'output_3v3_max',
	output3v3Min	=> 'output_3v3_min',
	outputCurrent	=> 'output_current',
	outputCurrentAvg=> 'output_current_avg',
	outputCurrentMax=> 'output_current_max',
	outputCurrentMin=> 'output_currenti_min',
	outputPower	=> 'output_power',
	outputPowerAvg	=> 'output_power_avg',,
	outputPowerMin	=> 'output_power_min',
	outputPowerMax	=> 'output_power_max',
	performance	=> 'performance',
	power 		=> 'power',
	presence 	=> 'presence',
	psuTemp1	=> 'psu_temp_1',
	psuTemp2	=> 'psu_temp_2',
	revision 	=> 'revision',
	serial 		=> 'serial',
	suspect		=> 'suspect',
	thresholded	=> 'thresholded',
	timeCollected	=> 'time_collected',
	thermal 	=> 'thermal',
	vendor 		=> 'vendor',
	voltage		=> 'voltage',
);

{
        no strict 'refs';

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