From: Florian Ragwitz <rafl@debian.org>
Date: Sun, 10 May 2009 00:01:43 +0000 (+0000)
Subject: Add testcase for calling a method with the name of a declarator.
X-Git-Tag: 0.005002~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=09ca664a0e665141ebf4d6cb101141f9b1e908e9;p=p5sagit%2FDevel-Declare.git

Add testcase for calling a method with the name of a declarator.
---

diff --git a/t/method-installer-runtime.t b/t/method-installer-runtime.t
index 86dbdf3..62926b4 100644
--- a/t/method-installer-runtime.t
+++ b/t/method-installer-runtime.t
@@ -12,7 +12,9 @@ BEGIN {
 
 ok(!main->can('foo'), 'foo() not installed yet');
 
-method foo { }
+method foo {
+    $_[0]->method
+}
 
 ok(main->can('foo'), 'foo() installed at runtime');