Web::Simple::Role

  package MyApp;
  use Web::Simple;
  with MyApp::Role;
  sub dispatch_request { ... }

and in the role:

  package MyApp::Role;
  use Web::Simple::Role;
  around dispatch_request => sub {
    my ($orig, $self) = @_;
    return (
      $self->$orig,
      sub (GET + /baz) { ... }
    );
  };

Now "MyApp" can also dispatch "/baz"

See Web::Simple for authors.

See Web::Simple for the copyright and license.