File Coverage

lib/Acpi/Class.pm

Criterion	Covered	Total	%
statement	18	45	40.0
branch			n/a
condition			n/a
subroutine	6	11	54.5
pod	5	5	100.0
total	29	61	47.5

package Acpi::Class;
{
  $Acpi::Class::VERSION = '0.003';
}
# ABSTRACT: Inspired in Acpi::Battery, this module gets the contents of the directory '/sys/class' in terms of 'classes' (ArrayRef of directories in /sys/class), 'devices' (ArrayRef of subdirectory in class) and 'attributes' (HashRef attributes => values, from the contents of devices directory).

# Modules {{{
use 5.012;
use strict;
use warnings;
use Acpi::Class::Devices;
use Acpi::Class::Attributes;
use Object::Tiny::RW qw( class device );
# }}}

sub g_classes    #{{{ List directories (ArrayRef)
{
	my $self    = shift;
	my $devices = Acpi::Class::Devices->new( dir => "/sys/class", pattern => qr/\w/x )->devices;
	return $devices;
} #}}}

sub g_devices    #{{{ List directories (ArrayRef)
{
	my $self = shift;
	my $class = $self->class;
	my $elements = Acpi::Class::Devices->new( dir => "/sys/class/$class", pattern => qr/\w/x )->devices;
	return \@$elements;
}#}}}

sub g_values    #{{{ filenames = attributes, content = values (HashRef)
{
	my $self = shift;
	my ($class, $device) = ($self->class, $self->device);
	my $values = Acpi::Class::Attributes->new( 'path' => "/sys/class/$class/$device" )->attributes;
	return $values;
}#}}}

sub p_device_values    #{{{
{
	my $self = shift;
	my ($class, $device) = ($self->class, $self->device);
	my $values = $self->g_values;
	say "Device '$device': ";
	foreach my $key (keys %$values)
	{
		my $value = $values->{$key};
		say "   ...$key = $value";
	}
	return 1
}#}}}

sub p_class_values    #{{{
{
	my $self = shift;
	my $class = $self->class;
	say "Class '$class': ";
	my $all_devices = $self->g_devices;
	foreach my $dev (@$all_devices)
	{
		$self->device($dev);
		$self->p_device_values;
	}
	return 1
}#}}}

1;

# pod {{{

__END__