t/foreign/Method-Signatures/at_underscore.t

   1 #!perl
   2 use strict;
   3 use warnings FATAL => 'all';
   4
   5 use Test::More;
   6
   7 {
   8     package Foo;
   9     use Function::Parameters qw(:strict);
  10
  11     fun foo { return @_ }
  12     method bar { return @_ }
  13 }
  14
  15 is_deeply [Foo::foo()], [];
  16 is_deeply [Foo::foo(23, 42)], [23, 42];
  17 is_deeply [Foo->bar()], [];
  18 is_deeply [Foo->bar(23, 42)], [23, 42];
  19
  20 done_testing;