1use Test::More; 2use strict; use warnings FATAL => 'all'; 3 4use List::Objects::WithUtils 'array'; 5 6my $arr = array( 1, 2, 2, 3, 4, 5, 5 ); 7my $uniq = $arr->uniq; 8is_deeply 9 [ $uniq->sort->all ], 10 [ 1, 2, 3, 4, 5 ], 11 'uniq ok'; 12 13ok array->uniq->is_empty, 'empty array uniq ok'; 14 15done_testing; 16