t/lib/TestAppStats/Controller/Root.pm

   1 package TestAppStats::Controller::Root;
   2 use strict;
   3 use warnings;
   4 use base '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;