use strict;
use warnings;
use opts;
use Test::More;
@ARGV = qw(--foo=3);
is_deeply [ 3 ], foo(), 'one Multiple';
@ARGV = qw(--foo=3 --foo=four);
is_deeply [ qw{ 3 four } ], foo(), 'two Multiple';
{
no warnings 'qw';
@ARGV = qw(--foo=3 --foo=four,five);
is_deeply [ qw{ 3 four five } ], foo(), 'three Multiple';
}
done_testing;
sub foo {
opts my $foo => 'Multiple';
#is $foo->calc, 6;
return $foo;
}