t/lib/TestMiddlewareFromPlugin/SetMiddleware.pm

   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;