projects
/
p5sagit/Function-Parameters.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
4c91673b60782ec5f8aa86830e549a3bfc4d042c
[p5sagit/Function-Parameters.git]
/
t
/
foreign
/
Method-Signatures
/
trailing_comma.t
1
#!perl
2
3
# Make sure we allow a trailing comma.
4
5
use strict;
6
use warnings FATAL => 'all';
7
8
use Test::More;
9
10
use Function::Parameters qw(:strict);
11
12
fun foo($foo, $bar,) {
13
return [$foo, $bar];
14
}
15
16
is_deeply foo(23, 42), [23, 42];
17
18
done_testing;