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