Make sure to handle the case where a CMOP::Attribute is passed to clone_and_inherit_o...

diff --git a/lib/Moose/Meta/Attribute.pm b/lib/Moose/Meta/Attribute.pm
index 5d3f5d5..e40c571 100644 (file)
--- a/lib/Moose/Meta/Attribute.pm
+++ b/lib/Moose/Meta/Attribute.pm
@@ -213,7 +213,10 @@ sub clone_and_inherit_options {
         $options{traits} = \@all_traits if @all_traits;
     }
 
-    $self->_modify_attr_options_for_lazy_build( $self->name, \%options );
+    # This method can be called on a CMOP::Attribute object, so we need to
+    # make sure that $self actually has this method.
+    $self->_modify_attr_options_for_lazy_build( $self->name, \%options )
+        if $self->can('_modify_attr_options_for_lazy_build');
 
     $self->clone(%options);
 }