Auto-generated builder doesn't participate in inheritance.

[tobyink]

Migrated from rt.cpan.org #113304 (status was 'new')

Requestors:

• duff@pobox.com

From duff@pobox.com on 2016-03-24 13:27:47
:

The below program outputs "goober\ngoober\n" instead of "goober\nblah\n" . I tried it with perl 5.16.3 + Moops 0.034 and perl 5.22.1 + Moops 0.034 and it fails (outputs "goober\n" x 2) on both. Then I tried it on a system with perl 5.16.3 + Moops 0.031 and it works as expected.

I thought it might be related to the different versions of Moo between the two systems because the system where it worked was using Moo 1.006001 whereas the other systems were using Moo 2.000002. But when I tried the equivalent thing with Moo only, it worked fine everywhere.

So, at this point, I think there was a bug introduced somewhere between Moops 0.031 and 0.034.

thanks,

-Scott

----8<-----8<-----8<-----

use Moops;

class Foo {
has 'a' => ( is => 'rw', isa => Str, builder => method { "goober" } );
}

class Bar extends Foo {
method _build_a { "blah" }
}

say $_->a for Foo->new, Bar->new;