Commit | Line | Data |
---|---|---|
98e6239b | 1 | #!perl |
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 | } |
16 | ||
1a52f2db | 17 | like exception { Foo->foo(name => 42, value =>) }, qr/Not enough arguments.+ line 17/; |