projects
/
catagits/Web-Simple.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
make bump
[catagits/Web-Simple.git]
/
lib
/
Plack
/
Middleware
/
Dispatch.pm
1
package Plack::Middleware::Dispatch;
2
3
use Moo;
4
5
extends 'Web::Dispatch';
6
7
has app => (is => 'ro', writer => '_set_app');
8
9
sub 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
19
1;