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

#!perl
use strict;
use warnings FATAL => 'all';

use Test::More;

{
    package Foo;
    use Function::Parameters qw(:strict);

    fun foo { return @_ }
    method bar { return @_ }
}

is_deeply [Foo::foo()], [];
is_deeply [Foo::foo(23, 42)], [23, 42];
is_deeply [Foo->bar()], [];
is_deeply [Foo->bar(23, 42)], [23, 42];

done_testing;
Commit	Line	Data
98e6239b	1	#!perl
	2	use strict;
	3	use warnings FATAL => 'all';
	4
	5	use Test::More;
	6
	7	{
	8	package Foo;
	9	use Function::Parameters qw(:strict);
	10
	11	fun foo { return @_ }
	12	method bar { return @_ }
	13	}
	14
	15	is_deeply [Foo::foo()], [];
	16	is_deeply [Foo::foo(23, 42)], [23, 42];
	17	is_deeply [Foo->bar()], [];
	18	is_deeply [Foo->bar(23, 42)], [23, 42];
	19
	20	done_testing;