sub generate {
  my ($self, $OBJS) = @_;
}