[catagits/Catalyst-Controller-WrapCGI.git] / t / lib / TestGC / Controller / Root.pm

package TestGC::Controller::Root;

use strict;
use warnings;
use base 'Catalyst::Controller';
use CatalystX::GlobalContext ();
use Dongs ();

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

sub auto : Private {
    my ($self, $c) = @_;
    CatalystX::GlobalContext->set_context($c);
    1;
}

sub dummy : Local {
    my ($self, $c) = @_;
    $c->res->body(Dongs->foo);
}

1;
Commit	Line	Data
efa4a434	1	package TestGC::Controller::Root;
	2
	3	use strict;
	4	use warnings;
	5	use base 'Catalyst::Controller';
	6	use CatalystX::GlobalContext ();
	7	use Dongs ();
	8
	9	__PACKAGE__->config->{namespace} = '';
	10
	11	sub auto : Private {
	12	my ($self, $c) = @_;
	13	CatalystX::GlobalContext->set_context($c);
	14	1;
	15	}
	16
	17	sub dummy : Local {
	18	my ($self, $c) = @_;
	19	$c->res->body(Dongs->foo);
	20	}
	21
	22	1;