Commit | Line | Data |
---|---|---|
a21b0034 | 1 | package TestMiddlewareFromPlugin::SetMiddleware; |
2 | use strict; | |
3 | use warnings; | |
4 | use File::Spec; | |
5 | use File::Basename (); | |
6 | ||
7 | my $config_path = File::Spec->catfile(File::Basename::dirname(__FILE__), 'testmiddlewarefromplugin.pl'); | |
8 | ||
9 | sub setup { | |
10 | my $c = shift; | |
11 | $c->config(do $config_path); | |
12 | $c->next::method(@_); | |
13 | } | |
14 | ||
15 | 1; |