t/lib/TestApp/Plugin/AddDispatchTypes.pm

   1 package TestApp::Plugin::AddDispatchTypes;
   2 use strict;
   3 use warnings;
   4 use MRO::Compat;
   5
   6 sub setup_dispatcher {
   7     my $class = shift;
   8
   9     ### Load custom DispatchTypes, as done by Catalyst::Plugin::Server
  10     # There should be a waaay less ugly method for doing this,
  11     # FIXME in 5.9
  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