3 use warnings FATAL => 'all';
5 use Test::More tests => 3;
10 use Function::Parameters qw(:strict);
12 method new ($class:) {
16 method array_param_at_end ($a, $b, @c) {
21 method two_array_params ($a, @b, @c) {}
23 like($@, qr{\btwo_array_params\b.+\@b\b.+\@c\b}, "Two array params");
26 method two_slurpy_params ($a, %b, $c, @d, $e) {}
28 like($@, qr{\btwo_slurpy_params\b.+%b\b.+\$c\b}, "Two slurpy params");
31 is(Bla->new->array_param_at_end(1, 2, 3, 4), "1|2|3 4", "Array parameter at end");