gistfile1.pl

package My::Plugin;
use strict; 
use warnings;
use base 'TheApp::Plugin::Base';

sub register {
    my $self = shift;
    my $app = shift;
    
    $self->hook(render_filter => sub { s/foo/bar/ and return $_ });
    $app->register($self, { 'foo' => 'bar' });
}

1;