[Bast-commits] r4933 - Devel-Declare/1.000/trunk/t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-10-18 12:49:59 +0100 (Sat, 18 Oct 2008)
New Revision: 4933

Modified:
   Devel-Declare/1.000/trunk/t/method.t
Log:
Test multiline signatures where the closing parent has a smaller offset than the opening one.

Modified: Devel-Declare/1.000/trunk/t/method.t
===================================================================
--- Devel-Declare/1.000/trunk/t/method.t	2008-10-18 09:06:13 UTC (rev 4932)
+++ Devel-Declare/1.000/trunk/t/method.t	2008-10-18 11:49:59 UTC (rev 4933)
@@ -122,7 +122,9 @@
     return bless({ @_ }, $class);
   };
 
-  method foo ($foo) {
+  method foo (
+      $foo
+  ) {
     return (ref $self).': Foo: '.$foo;
   };