Skip to content
Newer
Older
100644 13 lines (8 sloc) 204 Bytes
de990db @brunoV added test for foreach
brunoV authored Mar 6, 2010
1 use Test::More qw(no_plan);
2 use strict;
3 use warnings;
4
5 use autobox::Core;
6
7 my @array = qw(1 2 3);
8
9 my @added;
10 @array->foreach( sub { push @added, $_[0] + 1 } );
11
12 is_deeply [ sort @added ], [ qw(2 3 4) ];
Something went wrong with that request. Please try again.