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 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;