use FindBin qw($Bin);
use lib "$Bin/lib";
use strict;
use warnings;
use utf8;
use Acpi::Battery::Values;
use Moose;

my $a = Acpi::Battery::Values->new(directory => "/sys/class/power_supply/BAT1/uevent");
my $b = $a->model_name;
print "$b \n";

my $meta = Class::MOP::Class->initialize("Acpi::Battery::Values");

for my $attr ( $meta->get_all_attributes ) {
	my $an = $attr->name;
	my $value = $a->$an;
    print "$an = $value \n";
}