view release on metacpan or  search on metacpan

examples/Synopsis.pl  view on Meta::CPAN

#  DESCRIPTION: Example on how to use the module
#===============================================================================

# Modules {{{
use FindBin qw($Bin);
use lib "$Bin/../lib";
use 5.010;
use strict;
use warnings;
use Acpi::Class;
use Data::Dumper;
#}}}

my $class 				= Acpi::Class->new( class => 'power_supply');
my $devices = $class->g_devices;
print "Power devices: ";
foreach (@$devices) {print "$_ "} print "\n";
$class->device('ADP1');
my $ac_online 			= $class->g_values->{'online'};
$class->device('BAT1');
my $values 				= $class->g_values;