- or download this
package Acpi::Battery::Values;
use Acpi::Arxiu; # Reads the content of the file
use Moose;
...
}
1;
- or download this
use FindBin qw($Bin);
use lib "$Bin/lib";
use strict;
...
my $value = $a->$an;
print "$an = $value \n";
}
- or download this
perl Values.pl
G71C000AH310
serial_number = 0000000288
...
technology = Li-ion
present = 1
voltage_now = 11360000