Smart::Args::argsは余分は引数があっても落ちない
#Perl
#Smart::Args
code:a.pl
use strict;
use warnings;
use feature qw(say);
use Smart::Args qw(args);
sub hoge {
args my $foo => { isa => 'Str', default => 'YO' };
say $foo;
}
hoge(foo => 'hello'); # => hello
hoge(bar => 1); # => YO