diff --git a/lib/Lacuna/Role/Building/FormsNaturally.pm b/lib/Lacuna/Role/Building/FormsNaturally.pm index 78e2cc07..83b48e5f 100644 --- a/lib/Lacuna/Role/Building/FormsNaturally.pm +++ b/lib/Lacuna/Role/Building/FormsNaturally.pm @@ -4,8 +4,8 @@ use Moose::Role; around can_build => sub { my ($orig, $self, $body) = @_; - if ($body->get_plan(__PACKAGE__, 1)) { - return $orig->($self, $body); + if ($body->get_plan(ref $self, 1)) { + return $self->$orig($body); } confess [1013,"You can't build ".$self->name.". It forms naturally."]; };