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