[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);

around _curry => sub {
  my ($orig, $self) = (shift, shift);
  my $app = $self->_app_object;
  my $class = ref($app);
  my $inner = $self->$orig($app, @_);
  sub {
    no strict 'refs';
    local *{"${class}::self"} = \$app;
    $inner->(@_);
  }
};

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
	9	around _curry => sub {
	10	my ($orig, $self) = (shift, shift);
	11	my $app = $self->_app_object;
	12	my $class = ref($app);
	13	my $inner = $self->$orig($app, @_);
	14	sub {
	15	no strict 'refs';
	16	local *{"${class}::self"} = \$app;
	17	$inner->(@_);
	18	}
	19	};
	20
	21	1;