From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

use Moose;
sub root :Chained(/) PathPart('account') CaptureArgs(0) { }
sub one :Chained(root) PathPart('one') Args(0) Does(RequestModel) RequestModel(AccountRequest) {
my ($self, $c, $request) = @_;
$c->res->body(Dumper $request->nested_params);
}
sub json :Chained(root) PathPart('json') Args(0) Does(RequestModel) RequestModel(API::AccountRequest) {
my ($self, $c, $request) = @_;
$c->res->body(Dumper $request->nested_params);
}
sub jsonquery :Chained(root) PathPart('jsonquery') Args(0) Does(RequestModel) RequestModel(InfoRequest) RequestModel(InfoQuery) {
my ($self, $c, $post, $get) = @_;
$c->res->body(Dumper {
get => $get->nested_params,
post => $post->nested_params,
});
}
__PACKAGE__->meta->make_immutable;