Commit | Line | Data |
---|---|---|
ad1783ae | 1 | package TestApp::Controller::Priorities::MultiMethod; |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | use base qw/Catalyst::Controller/; | |
6 | ||
7 | sub auto :Private { | |
8 | my ($self, $c) = @_; | |
9 | $c->res->body(join(' ', $c->action->name, @{$c->req->args})); | |
10 | return 1; | |
11 | } | |
12 | ||
13 | sub zero :Path :Args(0) { } | |
14 | ||
15 | sub one :Path :Args(1) { } | |
16 | ||
17 | sub two :Path :Args(2) { } | |
18 | ||
335b10cc | 19 | sub not_def : Path { } |
20 | ||
ad1783ae | 21 | 1; |