package Foo;
sub FACTORY_CLASS () { 'Bar' }

sub make_new_bar 
{
    my $self = shift;
    my @params = @_;
    bless \@params, $self->FACTORY_CLASS();
}