[catagits/Catalyst-Runtime.git] / t / lib / TestAppStats / Controller / Root.pm

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

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

# Return log messages from previous request
sub default : Private {
    my ( $self, $c ) = @_;
    $c->stats->profile("test");
    $c->res->body(join("\n", @TestAppStats::log_messages));
    @TestAppStats::log_messages = ();
}

1;
Commit	Line	Data
f1abcb4a	1	package TestAppStats::Controller::Root;
	2	use strict;
	3	use warnings;
	4	use base qw/Catalyst::Controller/;
	5
	6	__PACKAGE__->config->{namespace} = '';
	7
	8	# Return log messages from previous request
	9	sub default : Private {
	10	my ( $self, $c ) = @_;
	11	$c->stats->profile("test");
	12	$c->res->body(join("\n", @TestAppStats::log_messages));
	13	@TestAppStats::log_messages = ();
	14	}
	15
	16	1;
	17