use strict; use warnings FATAL => 'all'; use Test::More tests => 2; use List::MapMulti; my @numbers = (2..10, qw/Jack Queen King Ace/); my @suits = qw/Clubs Diamonds Hearts Spades/; my $type; my @deck1 = mapm { $type = ref $_; "$_[0] of $_[1]" } \@numbers, \@suits; my @deck2 = do { my @r; for my $n (@numbers) { for my $s (@suits) { push @r, "$n of $s"; } } @r; }; isa_ok($type, 'List::MapMulti::Iterator'); is_deeply(\@deck1, \@deck2); =head1 PURPOSE Checks that C works. =head1 AUTHOR Toby Inkster Etobyink@cpan.orgE. =head1 COPYRIGHT AND LICENCE This software is copyright (c) 2012 by Toby Inkster. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.