projects
/
gitmo/MooseX-Types.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Don't assume that $search_tc->parent returns an object!
[gitmo/MooseX-Types.git]
/
lib
/
MooseX
/
Types
/
TypeDecorator.pm
diff --git
a/lib/MooseX/Types/TypeDecorator.pm
b/lib/MooseX/Types/TypeDecorator.pm
index
16e4fe0
..
7bbfa32
100644
(file)
--- 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');
}
}