Commit | Line | Data |
083ee5d9 |
1 | package TestApp::Plugin::AddDispatchTypes; |
2 | use strict; |
3 | use warnings; |
951bab6b |
4 | use MRO::Compat; |
083ee5d9 |
5 | |
6 | sub setup_dispatcher { |
7 | my $class = shift; |
8 | |
9 | ### Load custom DispatchTypes, as done by Catalyst::Plugin::Server |
c41cfce3 |
10 | # There should be a waaay less ugly method for doing this, |
11 | # FIXME in 5.9 |
083ee5d9 |
12 | $class->next::method( @_ ); |
13 | $class->dispatcher->preload_dispatch_types( |
14 | @{$class->dispatcher->preload_dispatch_types}, |
15 | qw/ +TestApp::DispatchType::CustomPreLoad / |
16 | ); |
17 | $class->dispatcher->postload_dispatch_types( |
18 | @{$class->dispatcher->postload_dispatch_types}, |
19 | qw/ +TestApp::DispatchType::CustomPostLoad / |
20 | ); |
21 | |
22 | return $class; |
23 | } |
24 | |
25 | 1; |
26 | |