use Test::More;
use strict; use warnings FATAL => 'all';

use List::Objects::WithUtils 'array';

my $arr = array(1,2,3);
my $res = [];
array->visit(sub { push @$res, $_ });
is_deeply $res, [], 'empty array visit ok';

$arr->visit(sub { push @$res, $_ });
is_deeply $res, [ 1, 2, 3 ], 'visit ok'
  or diag explain $res;

done_testing