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

JJNAPIORK / CatalystX-RequestModel-0.020 / t / lib / Example / Controller / Root.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

              
package Example::Controller::Root;
use Moose;
use MooseX::MethodAttributes;
use Data::Dumper;
extends 'Catalyst::Controller';
sub test1 :Local Does(RequestModel) BodyModel {
  my ($self, $c, $body) = @_;
  $c->response->body(Dumper($body->nested_params));
}
sub test2 :Local Does(RequestModel) BodyModel('~Login') {
  my ($self, $c, $body) = @_;
  $c->response->body(Dumper($body->nested_params));
}
sub test22 :Local Does(RequestModel) BodyModel('~::Login') {
  my ($self, $c, $body) = @_;
  $c->response->body(Dumper($body->nested_params));
}
sub test222 :Local Does(RequestModel) BodyModelFor('test1') {
  my ($self, $c, $body) = @_;
  $c->response->body(Dumper($body->nested_params));
}
sub test3 :Local Does(RequestModel) QueryModel {
  my ($self, $c, $q) = @_;
  $c->response->body(Dumper($q->nested_params));
}
sub test4 :Local Does(RequestModel) QueryModel('~LoginQuery') {
  my ($self, $c, $q) = @_;
  $c->response->body(Dumper($q->nested_params));
}
sub test44 :Local Does(RequestModel) QueryModel('~::LoginQuery') {
  my ($self, $c, $q) = @_;
  $c->response->body(Dumper($q->nested_params));
}
sub test444 :Local Does(RequestModel) QueryModelFor('test3') {
  my ($self, $c, $q) = @_;
  $c->response->body(Dumper($q->nested_params));
}
sub omit :Post :Local Does(RequestModel) BodyModel() {
  my ($self, $c, $q) = @_;
  $c->response->body(Dumper($q->nested_params));
}
__PACKAGE__->meta->make_immutable;