t/lib/TestAppViewWarnings.pm

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