#!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 );