t/foreign/Method-Signatures/odd_number.t

   1 #!perl
   2
   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
  11 package Foo {
  12     method foo(:$name, :$value) {
  13         return $name, $value;
  14     }
  15 }
  16
  17 like exception { Foo->foo(name => 42, value =>) }, qr/Not enough arguments.+ line 17/;