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

#!perl
use strict;
use warnings FATAL => 'all';
use Test::More tests => 4;

use Function::Parameters qw(:strict);

my @methods = (method { 1 }, method { 2 }, method { 3 });
is(scalar @methods, 3);

isa_ok($_, 'CODE') for @methods;
Commit	Line	Data
1a52f2db	1	#!perl
595edbcf	2	use strict;
1a52f2db	3	use warnings FATAL => 'all';
595edbcf	4	use Test::More tests => 4;
	5
	6	use Function::Parameters qw(:strict);
	7
	8	my @methods = (method { 1 }, method { 2 }, method { 3 });
	9	is(scalar @methods, 3);
	10
	11	isa_ok($_, 'CODE') for @methods;