[catagits/Catalyst-Runtime.git] / t / lib / TestMiddlewareFromPlugin / SetMiddleware.pm

package TestMiddlewareFromPlugin::SetMiddleware;
use strict;
use warnings;
use File::Spec;
use File::Basename ();

my $config_path = File::Spec->catfile(File::Basename::dirname(__FILE__), 'testmiddlewarefromplugin.pl');

sub setup {
    my $c = shift;
    $c->config(do $config_path);
    $c->next::method(@_);
}

1;
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;