1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!perl
use strict;
use warnings FATAL => 'all';
use Test::More tests => 3;
{
package Bla;
use Test::More;
use Function::Parameters qw(:strict);
method new ($class:) {
bless {}, $class;
}
method array_param_at_end ($a, $b, @c) {
return "$a|$b|@c";
}
eval q{
method two_array_params ($a, @b, @c) {}
};
like($@, qr{\btwo_array_params\b.+\@c\b.+\@b\b}, "Two array params");
eval q{
method two_slurpy_params ($a, %b, $c, @d, $e) {}
};
like($@, qr{\btwo_slurpy_params\b.+\$c\b.+%b\b}, "Two slurpy params");
}
is(Bla->new->array_param_at_end(1, 2, 3, 4), "1|2|3 4", "Array parameter at end");
|
