Commit | Line | Data |
---|---|---|
633048d5 | 1 | #!perl |
2 | use strict; | |
3 | use warnings FATAL => 'all'; | |
4 | ||
5 | use Test::More; | |
6 | ||
7 | use Function::Parameters qw(:strict);; | |
8 | ||
9 | ||
10 | ok eval q{ my $a = [ fun () {}, 1 ]; 1 }, 'anonymous function in list is okay' | |
11 | or diag "eval error: $@"; | |
12 | ||
13 | ok eval q{ my $a = [ method () {}, 1 ]; 1 }, 'anonymous method in list is okay' | |
14 | or diag "eval error: $@"; | |
15 | ||
16 | ||
17 | done_testing; |