develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35868 - trunk/languages/perl6/src/classes

From:
jonathan
Date:
January 21, 2009 08:32
Subject:
[svn:parrot] r35868 - trunk/languages/perl6/src/classes
Message ID:
20090121163222.A0B95CB9AE@x12.develooper.com
Author: jonathan
Date: Wed Jan 21 08:32:21 2009
New Revision: 35868

Modified:
   trunk/languages/perl6/src/classes/Role.pir

Log:
[rakudo] Roles need to know how to .WHICH (if nothing else so we can recursively parameterize them).

Modified: trunk/languages/perl6/src/classes/Role.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Role.pir	(original)
+++ trunk/languages/perl6/src/classes/Role.pir	Wed Jan 21 08:32:21 2009
@@ -251,6 +251,16 @@
     .return ($P0)
 .end
 
+
+=item WHICH
+
+=cut
+
+.sub 'WHICH' :method
+    $I0 = get_addr self
+    .return ($I0)
+.end
+
 =back
 
 =cut



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About