t/lib/TestAppStats.pm

   1 use strict;
   2 use warnings;
   3
   4 package TestAppStats;
   5
   6 use Catalyst qw/
   7     -Stats=1
   8 /;
   9
  10 our $VERSION = '0.01';
  11 our @log_messages;
  12
  13 __PACKAGE__->config( name => 'TestAppStats', root => '/some/dir' );
  14
  15 __PACKAGE__->log(TestAppStats::Log->new);
  16
  17 __PACKAGE__->setup;
  18
  19 # Return log messages from previous request
  20 sub default : Private {
  21     my ( $self, $c ) = @_;
  22     $c->stats->profile("test");
  23     $c->res->body(join("\n", @log_messages));
  24     @log_messages = ();
  25 }
  26
  27 package TestAppStats::Log;
  28 use base qw/Catalyst::Log/;
  29
  30 sub info { push(@log_messages, @_); }
  31 sub debug { push(@log_messages, @_); }