gistfile1.pl

$self->objectmanager->add_sub_for(
    object => $object_type, 
    object_method => $method_name, 
    method => sub {
        if(my $m = shift->app->jsp->can($method_name)) {
          return $m->(@_);
        }
    },
);