package Foo::Bar;

use Moose;
extends 'Foo';

before 'BUILD' => sub {
    my $self = shift;
    print STDERR "Foo::Bar before BUILD running\n";
    $self->x(25);
};

1;