X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fforeign%2FMethod-Signatures%2Fodd_number.t;fp=t%2Fforeign%2FMethod-Signatures%2Fodd_number.t;h=6d625ece1a612434b940a3ceb414c058a348f144;hb=1a52f2db46f6d870454428a07bfae09e0359eeee;hp=254b98aecd89d79cc2189d080c987391a5acbf46;hpb=ff265988561375d3cf480004e29e3891094c0afb;p=p5sagit%2FFunction-Parameters.git

diff --git a/t/foreign/Method-Signatures/odd_number.t b/t/foreign/Method-Signatures/odd_number.t
index 254b98a..6d625ec 100644
--- a/t/foreign/Method-Signatures/odd_number.t
+++ b/t/foreign/Method-Signatures/odd_number.t
@@ -1,6 +1,5 @@
 #!perl
 
-package Foo;
 use warnings FATAL => 'all';
 use strict;
 
@@ -9,8 +8,10 @@ use Test::Fatal;
 
 use Function::Parameters qw(:strict);
 
-method foo(:$name, :$value) {
-    return $name, $value;
+package Foo {
+    method foo(:$name, :$value) {
+        return $name, $value;
+    }
 }
 
-like exception { Foo->foo(name => 42, value =>) }, qr/Not enough arguments/;
+like exception { Foo->foo(name => 42, value =>) }, qr/Not enough arguments.+ line 17/;