[catagits/Web-Simple.git] / lib / Web / Simple / DispatchNode.pm

package Web::Simple::DispatchNode;

use Moo;

extends 'Web::Dispatch::Node';

has _app_object => (is => 'ro', init_arg => 'app_object', required => 1);

# this ensures that the dispatchers get called as methods of the app itself
around _curry => sub {
  my ($orig, $self) = (shift, shift);
  $self->$orig($self->_app_object, @_);
};

1;
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
67a6b9da	9	# this ensures that the dispatchers get called as methods of the app itself
4ed4fb42	10	around _curry => sub {
4ed4fb42	11	my ($orig, $self) = (shift, shift);
445b3ea0	12	$self->$orig($self->_app_object, @_);
4ed4fb42	13	};
	14
	15	1;