#!/usr/bin/env perl
use perl5i::latest;
use Test::More;
my @numbers = ( 1 .. 3 );
my @letters = ( 'a' .. 'c' );
my @words = qw(foo bar baz);
my $m;
is_deeply( $m = @numbers->mesh(\@letters), [ 1, 'a', 2, 'b', 3, 'c' ] );
is_deeply(
$m = @numbers->mesh(\@letters, \@words),
[ 1, 'a', 'foo', 2, 'b', 'bar', 3, 'c', 'baz' ],
);
my @m = @numbers->mesh(\@letters);
is scalar @m, 6, "Returns an array in list context";
done_testing();