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 package TestAppStats::Log;
  20 use base qw/Catalyst::Log/;
  21
  22 sub info { push(@TestAppStats::log_messages, @_); }
  23 sub debug { push(@TestAppStats::log_messages, @_); }
  24
  25 1;
  26