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;