sub render {
   my ($self, $obj) = @_;
   ...
   ... $obj->render_foo(...) ...
   ...
}