Add a type attribute to DNST::MethodCall.

jnthn · Sep 28, 2010 · 842f415 · 842f415
1 parent c0c6232
commit 842f415
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/dotnet/compiler/DNST.pm b/dotnet/compiler/DNST.pm
@@ -174,6 +174,7 @@ class DNST::MethodCall is DNST::Node {
     has $!on;
     has $!name;
     has $!void;
+    has $!type;
 
     method on($set?) {
         if $set { $!on := $set }
@@ -190,11 +191,17 @@ class DNST::MethodCall is DNST::Node {
         $!void
     }
 
-    method new(:$name!, :$on, :$void, *@children) {
+    method type($set?) {
+        if $set { $!type := $set }
+        $!type
+    }
+
+    method new(:$name!, :$on, :$void, :$type, *@children) {
         my $obj := self.CREATE;
         if $on { $obj.on($on); }
         $obj.name($name);
         $obj.void($void);
+        $obj.type($type);
         $obj.set_children(@children);
         $obj;
     }