[p5sagit/Function-Parameters.git] / t / foreign / Method-Signatures / paren_on_own_line.t

#!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 );
Commit	Line	Data
633048d5	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 );