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

#!perl

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

use Test::More tests => 1;
use Test::Fatal;

use Function::Parameters qw(:strict);

method foo(:$name, :$value) {
    return $name, $value;
}

like exception { Foo->foo(name => 42, value =>) }, qr/Not enough arguments/;
Commit	Line	Data
98e6239b	1	#!perl
	2
	3	package Foo;
	4	use warnings FATAL => 'all';
	5	use strict;
	6
	7	use Test::More tests => 1;
	8	use Test::Fatal;
	9
	10	use Function::Parameters qw(:strict);
	11
	12	method foo(:$name, :$value) {
	13	return $name, $value;
	14	}
	15
	16	like exception { Foo->foo(name => 42, value =>) }, qr/Not enough arguments/;