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;