1use Test::More; 2use strict; use warnings FATAL => 'all'; 3 4use List::Objects::WithUtils 'array'; 5 6ok !defined array->pop, 'empty array pop ok'; 7 8my $arr = array( 1 .. 3 ); 9my $popped = $arr->pop; 10ok $popped == 3, 'pop returned correct value'; 11is_deeply [ $arr->all ], [ 1, 2 ], 'pop removed correct value'; 12 13done_testing; 14