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;