X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStorage%2FEngine.pm;h=ce2cb74ad332432ba835b77bd1cb1b63ed65a9ed;hb=68cf3423e9d708f2595f274b62137ada7d11930d;hp=95263f94dc54037d98b58be29a48e9f41e673fb0;hpb=d4b1b66748b64d36fd75f717eaff5bafbc43af06;p=gitmo%2FMooseX-Storage.git

diff --git a/lib/MooseX/Storage/Engine.pm b/lib/MooseX/Storage/Engine.pm
index 95263f9..ce2cb74 100644
--- a/lib/MooseX/Storage/Engine.pm
+++ b/lib/MooseX/Storage/Engine.pm
@@ -3,7 +3,7 @@ package MooseX::Storage::Engine;
 use Moose;
 use Scalar::Util qw(refaddr);
 
-our $VERSION   = '0.20';
+our $VERSION   = '0.24';
 our $AUTHORITY = 'cpan:STEVAN';
 
 # the class marker when
@@ -307,8 +307,8 @@ sub find_type_handler {
     # If both is true recurse this method
     # using ->type_parameter.
     return $self->find_type_handler($type_constraint->type_parameter)
-        if $type_constraint->parent eq 'Maybe'
-          and not $type_constraint->parent->can('type_parameter');
+        if ($type_constraint->parent && $type_constraint->parent eq 'Maybe'
+          and not $type_constraint->parent->can('type_parameter'));
 
     # this should handle most type usages
     # since they they are usually just
@@ -352,6 +352,8 @@ sub find_type_handler_for {
     $TYPES{$type_handler_name}
 }
 
+no Moose::Role;
+
 1;
 
 __END__