package Wrong;

sub builder {
    my $pkg = shift;

    my @args = (
        # A bunch of random stuff here, including objects
    );

    {
        no strict 'refs';
        *{ $pkg . '::new' } = sub {
            (shift)->SUPER::new( @args );
        };
    }
}