use strict;
use warnings;
use Test::More tests => 3;
BEGIN { use_ok('List::Vectorize') }
my $x = [1..10];
my $y = [2..11];
my $z = 10;
my $r1 = multiply($x, $y);
my $r2 = multiply($x, $y, $z);
is($r1->[1], 6);
is($r2->[1], 60);
use strict;
use warnings;
use Test::More tests => 3;
BEGIN { use_ok('List::Vectorize') }
my $x = [1..10];
my $y = [2..11];
my $z = 10;
my $r1 = multiply($x, $y);
my $r2 = multiply($x, $y, $z);
is($r1->[1], 6);
is($r2->[1], 60);