version 1.0401
[p5sagit/Function-Parameters.git] / t / foreign / Method-Signatures / larna.t
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     my $a;
11     ok eval q{ $a = [ fun () {}, 1 ]; 1 }, 'anonymous function in list is okay'
12         or diag "eval error: $@";
13     is ref $a->[0], "CODE";
14     is $a->[1], 1;
15 }
16
17 {
18     my $a;
19     ok eval q{ $a = [ method () {}, 1 ]; 1 }, 'anonymous method in list is okay'
20         or diag "eval error: $@";
21     is ref $a->[0], "CODE";
22     is $a->[1], 1;
23 }
24
25 done_testing;