From 8b5cbc903a71bc66baa6594853894e66871e73c5 Mon Sep 17 00:00:00 2001
From: Iain C Docherty <github@iandocherty.com>
Date: Sat, 23 Mar 2013 12:38:08 -0400
Subject: [PATCH] Fixed regression problem with 'building forms naturally'.

---
 lib/Lacuna/Role/Building/FormsNaturally.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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