The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TestApp4;
use strict;
use Catalyst qw(-Debug);

our $VERSION = '0.01';
use FindBin;

TestApp4->config( name => 'TestApp4', root => "$FindBin::Bin/lib/TestApp4/root",
  error_handler => {
    enable => 1,
    handlers => {
      '404' => { 'template' => 'error/404', },
    },
    expose_stash => qr/regex/,
  }
);

TestApp4->setup;

1;