package Acpi::Battery::Values;
use Acpi::Arxiu;  # Reads the content of the file
use Moose;

has 'directory' => (
	is => "ro",
	isa => "Str",
);

my $dir = "/sys/class/power_supply/BAT1/uevent";
my $object = Acpi::Arxiu->new(filename => "$dir");
my $content = $object->content;
my %value = $content =~ /^POWER_SUPPLY_(\w+)=(.+)$/mg;

foreach (keys %value) {
	has lc($_) => (
		is => "ro",
		default => $value{$_},
	);
}

1;