Test multiline signatures where the closing parent has a smaller offset than the...

git-svn-id: http://dev.catalyst.perl.org/repos/bast/Devel-Declare/1.000/trunk@4933 bd8105ee-0ff8-0310-8827-fb3f25b6796d

diff --git a/t/method.t b/t/method.t
index 9833e30..4e92af6 100644 (file)
--- a/t/method.t
+++ b/t/method.t
@@ -122,7 +122,9 @@ my ($test_method1, $test_method2, @test_list);
     return bless({ @_ }, $class);
   };
 
-  method foo ($foo) {
+  method foo (
+      $foo
+  ) {
     return (ref $self).': Foo: '.$foo;
   };