Changeset 5357

Timestamp:

06/19/09 07:39:59 (3 years ago)

Author:

azawawi

Message:

[Perl 6] The Point class in Perl 6 (template)

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

@@ -1 +1 @@
 use v6;
 
-class Foo {
+=begin Pod
+    An example of a Perl 6 class
+=end Pod
+class Point {
+    # attributes; 
+    # note that variable initialization is not automatic in Perl 6
+    has $.x = 0;
+    has $.y = 0;
+
+    # a method to move to a new location
+    method move($new_x, $new_y) {
+        $.x = $new_x;
+        $.y = $new_y;
+    }
+    
+    method to_string() {
+        return $.x ~ "," ~ $.y; 
+    }
 }
+
+# Create a point and initializes its attributes
+my $pt1 = Point.new();
+my $pt2 = Point.new(:x(7), :y(8));
+say $pt1.to_string;
+say $pt2.to_string;