use strict;
use warnings;
use opts;
use Test::More;
use Test::Exception;

@ARGV = qw(--p-foo=3);
is foo(), 3;

@ARGV = qw(--p_foo=3);
is foo(), 3;


@ARGV = qw(--p-foo=3);
is with_alias(), 3;

@ARGV = qw(--p_foo=3);
is with_alias(), 3;

@ARGV = qw(--bar=3);
is with_alias(), 3;

done_testing;
exit;

sub foo {
    opts my $p_foo => { isa => 'Int' };
    return $p_foo;
}

sub with_alias {
    opts my $p_foo => { isa => 'Int', alias => 'bar' };
    return $p_foo;
}