made method { ... }; work

[p5sagit/Devel-Declare.git] / t / sugar.t

diff --git a/t/sugar.t b/t/sugar.t
index e71a944..4ca64e6 100644 (file)
--- a/t/sugar.t
+++ b/t/sugar.t
@@ -46,7 +46,7 @@ my ($test_method1, $test_method2);
     return 'DeclareTest2: bar';
   };
 
-  $test_method1 = method (@_) {
+  $test_method1 = method {
     return join(', ', $self->{attr}, $_[1]);
   };