From: matthewt <matthewt@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Date: Sun, 1 Jun 2008 12:54:48 +0000 (+0000)
Subject: extra test, forget where it came from
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=00f358df7c83778542e6aa260919f6d9284b1b84;p=p5sagit%2FDevel-Declare.git

extra test, forget where it came from

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

diff --git a/t/combi.t b/t/combi.t
new file mode 100644
index 0000000..facda8f
--- /dev/null
+++ b/t/combi.t
@@ -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");