use strict;
use Test::More qw(no_plan);
use Object::AutoAccessor;
my $hashref = {
foo => {
bar => {
baz => 'BAZ',
},
baz => 'BAZ',
},
bar => 'BAR',
};
{
my $obj = Object::AutoAccessor->build($hashref);
is ( $obj->bar => 'BAR' );
is ( $obj->foo->baz => 'BAZ' );
is ( $obj->foo->bar->baz => 'BAZ' );
is_deeply( $obj->as_hashref => $hashref );
}