Changeset 5358

Timestamp:

06/19/09 07:46:52 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Added some typing to Point P6 class

File:

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

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

@@ -7 +7 @@
     # attributes; 
     # note that variable initialization is not automatic in Perl 6
-    has $.x = 0;
-    has $.y = 0;
+    has Num $.x = 0;
+    has Num $.y = 0;
 
     # a method to move to a new location
-    method move($new_x, $new_y) {
+    method move(Num $new_x, Num $new_y) {
         $.x = $new_x;
         $.y = $new_y;