The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

MAUKE / Function-Parameters-1.0603_03 / t / foreign / Method-Signatures / paren_on_own_line.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

              
#!perl
package Foo;
use strict;
use warnings FATAL => 'all';
use Function::Parameters qw(:strict);
use Test::More 'no_plan';
# The problem goes away inside an eval STRING.
method foo(
    $arg
)
{
    return $arg;
}
is $@, '';
is( Foo->foo(42), 42 );