package HTML::TreeBuilder;
sub element_class { return "HTML::Element"; }
...
sub make_sub_node {
  ...
  my $ele = $self->element_class->new(...); #makes an HTML::Element perhaps
  ..
}