package Foo::Bar;

use Moose;
extends 'Foo';

use Data::Dumper;

around 'BUILDARGS' => sub {
    my ($orig, $class, %args) = @_;
    print STDERR "Foo::Bar::BUILDARGS running.\n";

    $args{x} = 25;

    return $class->$orig(%args);
};

1;