smart-args-and-moose-types.pl

#!perl -w
use strict;
use Smart::Args;
use MooseX::Types::Structured qw(:all);
use MooseX::Types::Moose qw(:all);
use Data::Dumper;

sub foo {
    # Tuple()にはカッコが必要（さもないと後続の引数 my $baz を飲み込んでしまうため)
    args my $bar => Tuple([ Str, Str, Str ]), my $baz;

    print Dumper([$bar, $baz]);
}

foo bar => [1, 2, 3], baz => 42; # OK
foo bar => [ 10 ],    baz => 42;    # boom!
__END__