[catagits/Catalyst-Runtime.git] / t / lib / TestAppViewWarnings.pm

use strict;
use warnings;

package TestAppViewWarnings;

use Catalyst;

our @log_messages;

__PACKAGE__->config( name => 'TestAppWarnings', root => '/some/dir', default_view => "DoesNotExist" );

__PACKAGE__->log(TestAppViewWarnings::Log->new);

__PACKAGE__->setup;

package TestAppViewWarnings::Log;

use base qw/Catalyst::Log/;
sub warn { push(@TestAppViewWarnings::log_messages, @_[1..$#_]); }

1;
Commit	Line	Data
4d723d12	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