Help for this page

Select Code to Download


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