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."]; +};