t/lib/TestApp/Controller/Priorities/MultiMethod.pm

   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
  19 sub not_def : Path { }
  20
  21 1;