t/foreign/Method-Signatures/paren_plus_open_block.t

   1 #!perl
   2
   3 use strict;
   4 use warnings FATAL => 'all';
   5
   6 package Foo;
   7
   8 use Test::More "no_plan";
   9 use Function::Parameters qw(:strict);
  10
  11 method foo(
  12     $arg
  13 )
  14 {
  15     return $arg
  16 }
  17
  18 is( Foo->foo(23), 23 );