view release on metacpan or  search on metacpan

Battery.pm  view on Meta::CPAN

}

sub getLastFull{
	my($self) = shift;

	return $self->getBatteryInfo("last full capacity");
}

sub getLastFullTotal{
	my($self) = shift;
	my($lastfulltotal) = undef;
	my($i) = 0;
	my($numbatt) = $self->nbBattery;
	
	for($i=1;$i<=$numbatt;$i++){
		$lastfulltotal += $rfield->getValueField("/proc/acpi/battery/BAT".$i."/info","last full capacity");
	}

	return $lastfulltotal;

}

Battery.pm  view on Meta::CPAN

}

sub getRemaining{
	my($self) = shift;

	return $self->getBatteryState("remaining capacity");
}

sub getRemainingTotal{
        my($self) = shift;
	my($remainingtotal) = undef;
	my($i) = 0;
	my($numbatt) = $self->nbBattery;
	
	for($i=1;$i<=$numbatt;$i++){
		$remainingtotal += $rfield->getValueField("/proc/acpi/battery/BAT".$i."/state","remaining capacity");
	}
	
	return $remainingtotal;
}

sub getPresentRate{
	my($self) = shift;

	return $self->getBatteryState("present rate");
}

sub getPresentRateTotal{
        my($self) = shift;
	my($presentratetotal) = undef;
	my($i) = 0;
	my($numbatt) = $self->nbBattery;

	for($i=1;$i<=$numbatt;$i++){
		$presentratetotal += $rfield->getValueField("/proc/acpi/battery/BAT".$i."/state","present rate");
	}
	
	return $presentratetotal;					
}

sub getPresentVoltage{
	my($self) = shift;

	return $self->getBatteryState("present voltage");
}

sub getPresentVoltageTotal{
	my($self) = shift;
	my($presentvoltagetotal) = undef;
	my($i) = 0;
	my($numbatt) = $self->nbBattery;

	for($i=1;$i<=$numbatt;$i++){
		$presentvoltagetotal += $rfield->getValueField("/proc/acpi/battery/BAT".$i."/state","present voltage");
	}

	return $presentvoltagetotal;
}

Temperature.pm  view on Meta::CPAN

	my($self) = {};

	bless($self,$class);
	
	$rfield = Acpi::Field->new;
	return $self;
}

sub getTemperature{
	my($self) = shift;
	my($temperature) = undef;

	$temperature = $rfield->getValueField("/proc/acpi/thermal_zone/THRM/temperature","temperature");

	return $temperature;
}

sub getState{
	my($self) = shift;

	if($rfield->getValueField("/proc/acpi/thermal_zone/THRM/state","state") eq "ok"){