1use Test::More;
2use strict; use warnings FATAL => 'all';
3
4{ package My::Array::Obj;
5  use strict; use warnings FATAL => 'all';
6  use parent 'List::Objects::WithUtils::Array';
7  sub foo { 1 }
8}
9{ package My::Hash::Obj;
10  use strict; use warnings FATAL => 'all';
11  use parent 'List::Objects::WithUtils::Hash';
12  sub bar { 1 }
13}
14
15{ package My::Autoboxen;
16  use strict; use warnings FATAL => 'all';
17  use List::Objects::WithUtils::Autobox
18    HASH  => 'My::Hash::Obj',
19    ARRAY => 'My::Array::Obj' ;
20
21  use Test::More;
22
23  ok []->foo, 'autoboxed array ok';
24  ok {}->bar, 'autoboxed hash ok';
25}
26
27done_testing;
28