1use Test::More; 2use strict; use warnings FATAL => 'all'; 3 4use List::Objects::WithUtils 'array'; 5 6my $arr = array(1,2,3); 7my $res = []; 8array->visit(sub { push @$res, $_ }); 9is_deeply $res, [], 'empty array visit ok'; 10 11my $ret = $arr->visit(sub { push @$res, $_ }); 12ok $ret == $arr, 'visit returned invocant'; 13is_deeply $res, [ 1, 2, 3 ], 'visit ok' 14 or diag explain $res; 15 16done_testing 17