factor dispatcher out into Web::Dispatch
[catagits/Web-Simple.git] / lib / Plack / Middleware / Dispatch.pm
CommitLineData
4ed4fb42 1package Plack::Middleware::Dispatch;
2
3use Moo;
4
5extends 'Web::Dispatch';
6
7has app => (is => 'ro', writer => '_set_app');
8
9sub wrap {
10 my ($self, $app, @args) = @_;
11 if (ref $self) {
12 $self->_set_app($app);
13 } else {
14 $self = $self->new({ app => $app, @args });
15 }
16 return $self->to_app;
17}
18
191;