Ok. Attached is a patch to 'fix' the issue. It is a horrible hack...
diff --git a/lib/Moose/Meta/Attribute.pm b/lib/Moose/Meta/Attribute.pm
index 3b138fa..f574e8d 100644
--- a/lib/Moose/Meta/Attribute.pm
+++ b/lib/Moose/Meta/Attribute.pm
@@ -198,34 +198,6 @@ sub clone_and_inherit_options {
(scalar @found_illegal_options == 0)
|| $self->throw_error("Illegal inherited options => (" . (join ', ' => @found_illegal_options) . ")", data => \%options);
- if ($options{isa}) {
- my $type_constraint;
- if (blessed($options{isa}) && $options{isa}->isa('Moose::Meta::TypeConstraint')) {
- $type_constraint = $options{isa};
- }
- else {
- $type_constraint = Moose::Util::TypeConstraints::find_or_create_isa_type_constraint($options{isa});
- (defined $type_constraint)
- || $self->throw_error("Could not find the type constraint '" . $options{isa} . "'", data => $options{isa});
- }
-
- $options{type_constraint} = $type_constraint;
- }
-
- if ($options{does}) {
- my $type_constraint;
- if (blessed($options{does}) && $options{does}->isa('Moose::Meta::TypeConstraint')) {
- $type_constraint = $options{does};
- }
- else {
- $type_constraint = Moose::Util::TypeConstraints::find_or_create_does_type_constraint($options{does});
- (defined $type_constraint)
- || $self->throw_error("Could not find the type constraint '" . $options{does} . "'", data => $options{does});
- }
-
- $options{type_constraint} = $type_constraint;
- }
-
# NOTE:
# this doesn't apply to Class::MOP::Attributes,
# so we can ignore it for them.
@@ -238,10 +210,22 @@ sub clone_and_inherit_options {
$options{traits} = \@all_traits if @all_traits;
}
+
+ ### This is a hack to make _process_lazy_options work
+ $options{__hack_is_inherit} = 1;
+
+ ### This is a hack to make _process_options work.
+ if ($options{coerce} && (! exists $options{isa})) {
+ $options{isa} = $self->type_constraint;
+ }
+
+
# This method can be called on a CMOP::Attribute object, so we need to
# make sure we can call this method.
- $self->_process_lazy_build_option( $self->name, \%options )
- if $self->can('_process_lazy_build_option');
+ $options{metaclass}->_process_options( $self->name, \%options )
+ if $self->can('_process_options');
+
+ delete $options{__hack_is_inherit};
$self->clone(%options);
}
@@ -450,7 +434,9 @@ sub _process_lazy_option {
return unless $options->{lazy};
- ( exists $options->{default} || defined $options->{builder} )
+ # Added hack to allow lazy on inherit
+ ( exists $options->{default} || defined $options->{builder} || exists
+ $options->{__hack_is_inherit} )
|| $class->throw_error(
"You cannot have a lazy attribute ($name) without specifying a default value for it",
data => $options );
diff --git a/t/attributes/ealleniii_attr_inherit_test.t b/t/attributes/ealleniii_attr_inherit_test.t
new file mode 100644
index 0000000..0e23c71
--- /dev/null
+++ b/t/attributes/ealleniii_attr_inherit_test.t
@@ -0,0 +1,63 @@
+package MyApp::Meta::Attribute;
+use Moose::Role;
+
+around _process_lazy_build_option => sub {
+ my ( $orig, $class, $name, $options ) = @_;
+ $options->{default} = sub { return 'yep' };
+ return $orig->($class , $name, $options);
+};
+
+
+
+
+package MyApp;
+use Moose;
+
+has 'fun' => (
+ is => 'rw',
+ isa => 'Str'
+);
+
+__PACKAGE__->meta->make_immutable;
+no Moose;
+
+package MyApp::Child;
+use Moose;
+
+extends qw(MyApp);
+
+has '+fun' => ( traits => ['MyApp::Meta::Attribute'] );
+
+no Moose;
+package MyApp::Brother;
+use Moose;
+
+has 'fun' => (
+ is => 'rw',
+ isa => 'Str',
+ traits => ['MyApp::Meta::Attribute']
+);
+
+__PACKAGE__->meta->make_immutable;
+no Moose;
+
+package main;
+
+use Test::More tests => 6; # last test to print
+
+my $testa = MyApp::Child->new();
+my $testb = MyApp::Brother->new();
+
+for my $test ($testa,$testb) {
+ my $attr = $test->meta->find_attribute_by_name('fun');
+
+ ok ( $attr->has_applied_traits, 'Traits get applied to ' . ref($test));
+
+ my @good = grep {$_ eq 'MyApp::Meta::Attribute'} @{$attr->applied_traits};
+
+ ok (scalar @good, 'My traits get applied to '. ref($test));
+ is( $test->fun, 'yep', 'Default was set by role for ' .ref($test) );
+}
+
+
+
