[catagits/Catalyst-Runtime.git] / t / lib / DeprecatedTestApp / C / Root.pm

package DeprecatedTestApp::C::Root;
use strict;
use warnings;
use base qw/Catalyst::Controller/;

__PACKAGE__->config->{namespace} = '';

sub index : Private {
    my ( $self, $c ) = @_;
    $c->res->body('root index');
}

sub req_user : Local {
    my ( $self, $c ) = @_;
    $c->res->body('REMOTE_USER = ' . $c->req->user);
}

1;
Commit	Line	Data
19a24dbb	1	package DeprecatedTestApp::C::Root;
	2	use strict;
	3	use warnings;
	4	use base qw/Catalyst::Controller/;
	5
	6	__PACKAGE__->config->{namespace} = '';
	7
	8	sub index : Private {
	9	my ( $self, $c ) = @_;
	10	$c->res->body('root index');
	11	}
	12
8026359e	13	sub req_user : Local {
	14	my ( $self, $c ) = @_;
	15	$c->res->body('REMOTE_USER = ' . $c->req->user);
	16	}
	17
19a24dbb	18	1;