sub show_landing {
my ($self, @args) = @_;
local $self->{_dispatcher};
+ local $args[-1]->{'Web::Dispatch.original_env'};
return [
200, ['Content-Type' => 'application/perl' ],
[::Dumper \@args],
sub show_users {
my ($self, @args) = @_;
local $self->{_dispatcher};
+ local $args[-1]->{'Web::Dispatch.original_env'};
return [
200, ['Content-Type' => 'application/perl' ],
[::Dumper \@args],
sub show_user {
my ($self, @args) = @_;
local $self->{_dispatcher};
+ local $args[-1]->{'Web::Dispatch.original_env'};
return [
200, ['Content-Type' => 'application/perl' ],
[::Dumper \@args],
sub process_post {
my ($self, @args) = @_;
local $self->{_dispatcher};
+ local $args[-1]->{'Web::Dispatch.original_env'};
return [
200, ['Content-Type' => 'application/perl' ],
[::Dumper \@args],