1use Test::More; 2use strict; use warnings; 3 4use Lowu 'array'; 5 6my $arr = array( 'a', 'b', 'c', 'b', 'e', 'c', 'b' ); 7my $rep = $arr->repeated; 8is_deeply [ $rep->sort->all ], [qw/b c/], 'repeated ok'; 9 10$rep = array('a', 'b', 'c')->repeated; 11ok $rep->is_empty, 'repeated with zero repeats ok'; 12 13ok array->repeated->is_empty, 'repeated on empty array ok'; 14 15done_testing 16