1 package Web::Simple::DispatchNode;
5 extends 'Web::Dispatch::Node';
7 has _app_object => (is => 'ro', init_arg => 'app_object', required => 1);
10 my ($orig, $self) = (shift, shift);
11 my $app = $self->_app_object;
12 my $class = ref($app);
13 my $inner = $self->$orig($app, @_);
16 local *{"${class}::self"} = \$app;