8 my @array = ('a' .. 'z');
10 my $aref = [ @array ];
14 @array->each_n_values(2, sub { push @vals, [@_] });
16 is(scalar @$_, 2) for @vals;
17 is_deeply(@vals->map(sub { @{ $_ } }), [@array]);
22 $aref->each_n_values(2, sub { push @vals, [@_] });
24 is(scalar @$_, 2) for @vals;
25 is_deeply(@vals->map(sub { @{ $_ } }), $aref);
30 my %hash = (a => 1, b => 2, c => 3, d => 4);
36 %hash->each_n_values(2, sub { push @vals, [@_] });
39 for my $pair (@vals) { $seen{$_}++ for @$pair }
40 is_deeply(\%seen, { 1,1,2,1,3,1,4,1 });
45 $href->each_n_values(2, sub { push @vals, [@_] });
48 for my $pair (@vals) { $seen{$_}++ for @$pair }
49 is_deeply(\%seen, { 1,1,2,1,3,1,4,1 });