t/lib/TestAppMVCWarnings.pm

   1 package TestAppMVCWarnings;
   2 use Moose;
   3 extends 'Catalyst';
   4 use Catalyst;
   5
   6 our @log_messages;
   7
   8 __PACKAGE__->config( name => 'TestAppMVCWarnings', root => '/some/dir', default_view => "DoesNotExist" );
   9
  10 __PACKAGE__->log(TestAppMVCWarnings::Log->new);
  11
  12 __PACKAGE__->setup;
  13
  14 package TestAppMVCWarnings::Log;
  15 use Moose;
  16 extends q/Catalyst::Log/;
  17
  18 sub warn { push(@TestAppMVCWarnings::log_messages, @_[1..$#_]); }
  19
  20 1;