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

#!perl

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

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

use Function::Parameters qw(:strict);

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

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