[Bast-commits] r4453 - trunk/Devel-Declare/t

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2008-06-01 13:54:48 +0100 (Sun, 01 Jun 2008)
New Revision: 4453

Added:
   trunk/Devel-Declare/t/combi.t
Log:
extra test, forget where it came from

Added: trunk/Devel-Declare/t/combi.t
===================================================================
--- trunk/Devel-Declare/t/combi.t	                        (rev 0)
+++ trunk/Devel-Declare/t/combi.t	2008-06-01 12:54:48 UTC (rev 4453)
@@ -0,0 +1,31 @@
+use strict;
+use warnings;
+use Test::More 'no_plan';
+
+sub method :lvalue {my $sv;}
+
+sub handle_method {
+  my ($usepack, $use, $inpack, $name, $proto) = @_;
+  my $H = sub (&) { };
+  if (defined $proto) {
+    return (sub :lvalue {my $sv;}, $H);
+  }
+  return ($H);
+}
+
+use Devel::Declare;
+use Devel::Declare method => [ DECLARE_NAME|DECLARE_PROTO, \&handle_method ];
+
+method blah {
+
+};
+
+method () {
+
+};
+
+method wahey () {
+
+};
+
+ok(1, "Survived compilation");