1#!/usr/bin/env perl 2 3# Make sure we allow a trailing comma. 4 5use strict; 6use warnings; 7 8use Test::More; 9 10use Method::Signatures; 11 12func foo($foo, $bar,) { 13 return [$foo, $bar]; 14} 15 16is_deeply foo(23, 42), [23, 42]; 17 18done_testing; 19