t/foreign/Method-Signatures/odd_number.t

   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/;