[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Priorities / MultiMethod.pm

package TestApp::Controller::Priorities::MultiMethod;

use strict;
use warnings;
use base qw/Catalyst::Controller/;

sub auto :Private {
    my ($self, $c) = @_;
    $c->res->body(join(' ', $c->action->name, @{$c->req->args}));
    return 1;
}

sub zero :Path :Args(0) { }

sub one :Path :Args(1) { }

sub two :Path :Args(2) { }

sub not_def : Path { }

1;
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 { }
335b10cc	20
ad1783ae	21	1;