package TestApp;

use Catalyst;    # qw(-Debug);

sub setup_dispatcher {
    my $this       = shift;
    my $dispatcher = $this->next::method(@_);
    $dispatcher->preload_dispatch_types(
        ['+TestApp::DispatchType::Chained'] );
    return $dispatcher;
}

__PACKAGE__->setup;
my $dp = __PACKAGE__->dispatcher->dispatch_types;
@$dp = grep { ( ref($_) || $_ ) ne 'Catalyst::DispatchType::Chained'; } @$dp;
1;