use auto;
use Data::Dumper;

my $test = auto->new();
print "Vor A: ".Dumper($test);
$test->A();
print "Nach A: ".Dumper($test);
$test->A_val();
print "Nach A_val: ".Dumper($test);