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

#!perl

use strict;
use warnings FATAL => 'all';

package Foo;

use Test::More "no_plan";
use Function::Parameters qw(:strict);

method foo(
    $arg
) 
{
    return $arg
}

is( Foo->foo(23), 23 );
Commit	Line	Data
633048d5	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 );