Commit | Line | Data |
---|---|---|
4ed4fb42 | 1 | package Web::Simple::DispatchNode; |
2 | ||
3 | use Moo; | |
4 | ||
5 | extends 'Web::Dispatch::Node'; | |
6 | ||
7 | has _app_object => (is => 'ro', init_arg => 'app_object', required => 1); | |
8 | ||
9 | around _curry => sub { | |
10 | my ($orig, $self) = (shift, shift); | |
445b3ea0 | 11 | $self->$orig($self->_app_object, @_); |
4ed4fb42 | 12 | }; |
13 | ||
14 | 1; |