The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package MyApp::Pages::Foo;
use strict;
use base qw(MyApp::Pages);

__PACKAGE__->tmpl_dirname('foo');

sub dispatch_bar {}

1;