From: Dave Rolsky <autarch@urth.org>
Date: Sat, 19 May 2012 03:53:15 +0000 (-0500)
Subject: Don't assume that $search_tc->parent returns an object!
X-Git-Tag: v0.35~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Types.git;a=commitdiff_plain;h=e513c4a5c345b572ecc63b4af1c858cacfd79de4

Don't assume that $search_tc->parent returns an object!
---

diff --git a/lib/MooseX/Types/TypeDecorator.pm b/lib/MooseX/Types/TypeDecorator.pm
index 16e4fe0..7bbfa32 100644
--- a/lib/MooseX/Types/TypeDecorator.pm
+++ b/lib/MooseX/Types/TypeDecorator.pm
@@ -188,7 +188,7 @@ sub _try_delegate {
                 last;
             }
             $search_tc = $search_tc->parent;
-            last unless $search_tc->is_subtype_of('Object');
+            last unless $search_tc && $search_tc->is_subtype_of('Object');
         }
     }