Sometimes the simplest code is still hairy.

You might be able to benefit from callbacks, e.g. changing

sub render {
   my ($self, $obj) = @_;
   ...
   ... if (...) { ... } else { ... } ...
   ...
}
[download]

to something like

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