Changeset 5360

Timestamp:

06/19/09 08:09:05 (3 years ago)

Author:

azawawi

Message:

[Perl 6] a Perl 6 parametric role for a greet()ing

File:

• trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/share/templates/p6_role.p6 (modified) (1 diff)

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/share/templates/p6_role.p6

@@ -1 +1 @@
 use v6;
+
+=begin Pod
+    An example of Parametric roles
+    Adopted from http://rakudo.org/2009/01/parametric-roles.html
+=end Pod
+
+role Greet[Str $greeting] {
+    method greet() { say "$greeting!"; }
+}
+
+class EnglishMan does Greet["Hello"] { }
+
+class Slovak does Greet["Ahoj"] { }
+
+class Lolcat does Greet["OH HAI"] { }
+
+# Hello
+EnglishMan.new.greet();
+
+# Ahoj
+Slovak.new.greet();
+
+# OH HAI
+Lolcat.new.greet();