Implement default { } blocks

sorear · May 13, 2011 · 00f93bd · 00f93bd
1 parent 777dc18
commit 00f93bd
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/src/niecza b/src/niecza
@@ -210,6 +210,11 @@ method regex_def($/) {
             do => ::Op::RegexBody.new(|node($/), pre => @lift,
                 name => ($name // ''), rxop => $ast, canback => $mb)));
 }
+method statement_control:default ($/) {
+    $<block>.ast.type = 'cond';
+    make ::Op::When.new(|node($/), match => mklex($/, 'True'),
+        body => self.block_to_immediate($/, 'loop', $<block>.ast));
+}
 }
 
 

diff --git a/test2.pl b/test2.pl
@@ -68,6 +68,13 @@
         multi bar(Any $, Str $) { "Y" }
         is bar("a","b"), "Y", "depth used as tiebreaker";
     }
+
+    my $ok;
+    given 1 {
+        when 2 { }
+        default { $ok = True }
+    }
+    ok $ok, "default works";
 }
 
 #is $?FILE, 'test.pl', '$?FILE works';