From 54cb9b50f55b77758a8bf0666acd962e4d56c544 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 28 Dec 2012 14:59:34 -0600
Subject: implement set_root_container and friends

---
 lib/Bread/Board.pm | 27 ++++++++++++++++++++++-----
 1 file changed, 22 insertions(+), 5 deletions(-)

(limited to 'lib/Bread/Board.pm')

diff --git a/lib/Bread/Board.pm b/lib/Bread/Board.pm
index 39b5a4b..eecec5c 100644
--- a/lib/Bread/Board.pm
+++ b/lib/Bread/Board.pm
@@ -360,19 +360,36 @@ role Singleton does Lifecycle is export {
 }
 
 our $CC;
+our $in_container = False;
+
+our sub set_root_container (Container $c) {
+    die "Can't set the root container when we're already in a container"
+        if $in_container;
+    $CC = $c;
+}
 
 proto container is export {*}
-multi container (Container $c, Callable $body) {
+multi container (Container $c, Callable $body = sub {}) {
     $CC.add_sub_container($c)
         if $CC;
-    temp $CC = $c;
-    $body.();
+    # PERL6: temp doesn't work properly in multisubs
+    #temp $CC = $c;
+    #temp $in_container = True;
+    #$body.();
+    my $old_CC = $CC;
+    my $old_in_container = $in_container;
+    $CC = $c;
+    $in_container = True;
+    {
+        LEAVE { $CC = $old_CC; $in_container = $old_in_container };
+        $body.();
+    }
     $c;
 }
-multi container (Str $name, Callable $body) {
+multi container (Str $name, Callable $body = sub {}) {
     container(Container.new(name => $name), $body);
 }
-multi container (Callable $body) {
+multi container (Callable $body = sub {}) {
     container(Container.new, $body);
 }
 
-- 
cgit v1.2.3-54-g00ecf