t/foreign/Method-Signatures/paren_on_own_line.t

   1 #!perl
   2
   3 package Foo;
   4
   5 use strict;
   6 use warnings FATAL => 'all';
   7
   8 use Function::Parameters qw(:strict);
   9 use Test::More 'no_plan';
  10
  11 # The problem goes away inside an eval STRING.
  12 method foo(
  13     $arg
  14 )
  15 {
  16     return $arg;
  17 }
  18
  19 is $@, '';
  20 is( Foo->foo(42), 42 );