/usr/share/perl5/Web/Simple/DispatchNode.pm is in libweb-simple-perl 0.020-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | 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
# and if the first argument is a hashref, localizes %_ to it to permit
# use of $_{name} inside the dispatch sub
around _curry => sub {
my ($orig, $self) = (shift, shift);
my $code = $self->$orig($self->_app_object, @_);
ref($_[0]) eq 'HASH'
? do { my $v = $_[0]; sub { local *_ = $v; &$code } }
: $code
};
1;
|