Acpi-Class

 view release on metacpan or  search on metacpan

examples/Class.pl  view on Meta::CPAN

#!/usr/bin/perl 

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

my $class		= Acpi::Class->new;
my $classes		= $class->g_classes;
my $number		= @$classes;

examples/Synopsis.pl  view on Meta::CPAN

#!/usr/bin/env perl 
#===============================================================================
#  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: ";

t/Acpi/Class.t  view on Meta::CPAN

#!/usr/bin/env perl 
use FindBin qw($Bin);
use lib "$Bin/../../lib";
use strict;
use warnings;
use 5.010;
use Acpi::Class;
use Test::More tests => 1;

# Check if the value of /sys/class/power_supply/$bat/technology 
# is the same that the one reported by Acpi::Class
my $class   = Acpi::Class->new( class => 'power_supply' );
# my $dir = '/sys/class/power_supply';

t/Acpi/Class/Attributes.t  view on Meta::CPAN

#!/usr/bin/env perl 

# Modules {{{
use FindBin qw($Bin);
use lib "$Bin/../../../lib";
use strict;
use warnings;
use Test::More tests => 1;
use Acpi::Class::Attributes;
# }}}

# Define Variables {{{
my $value = Acpi::Class::Attributes->new( path => "$Bin/../../../lib/Acpi" )->attributes->{'test'};
my $content = "yes";
#}}}

t/Acpi/Class/Devices.t  view on Meta::CPAN

#!/usr/bin/env perl 
use FindBin qw($Bin);
use lib "$Bin/../../../lib";
use strict;
use warnings;
use utf8;
use 5.010;
use Acpi::Class::Devices;
use List::Compare;
use Test::More tests => 1;

# Check that the elements of $dir are correctly read
my @dirs = qw( examples lib t);