1#!/usr/bin/env perl 2use strict; 3use warnings; 4use Test::More tests => 7; 5use autobox::Core; 6 7my @array = qw(foo bar baz); 8 9ok @array->tail; 10is_deeply [@array->tail], ['bar', 'baz']; 11 12is_deeply [@array->tail(1)], ['baz']; 13is_deeply [@array->tail(2)], ['bar', 'baz']; 14is_deeply [@array->tail(3)], ['foo', 'bar', 'baz']; 15 16my @tail = @array->tail; 17is scalar @tail, 2, "Returns a list in list context"; 18 19my $tail = @array->tail; 20is ref $tail, 'ARRAY', "Returns an arrayref in scalar context"; 21