From 2df22260092fe3f62b39601efb19a5fc6920e02e Mon Sep 17 00:00:00 2001 From: Daniel Crisman Date: Mon, 3 Dec 2012 20:47:48 -0500 Subject: [PATCH] Need a plan to build a LCOT* --- lib/Lacuna/Role/LCOT.pm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lib/Lacuna/Role/LCOT.pm b/lib/Lacuna/Role/LCOT.pm index 099b50e7..0b4554c7 100644 --- a/lib/Lacuna/Role/LCOT.pm +++ b/lib/Lacuna/Role/LCOT.pm @@ -25,6 +25,13 @@ sub image_level { return $self->image; } +around can_build => sub { + my ($orig, $self, $body) = @_; + if ($body->get_plan(ref $self, 1)) { + return $orig->($self, $body); + } + confess [1013,"You can't build the Lost City of Tyleon without knowledge left behind by the Great Race."]; +}; -- 2.51.2