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

use strict;
use warnings;

package TestAppStats;

use Catalyst qw/
    -Stats=1
/;

our $VERSION = '0.01';
our @log_messages;

__PACKAGE__->config( name => 'TestAppStats', root => '/some/dir' );

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

__PACKAGE__->setup;


package TestAppStats::Log;
use base qw/Catalyst::Log/;

sub info { push(@TestAppStats::log_messages, @_); }
sub debug { push(@TestAppStats::log_messages, @_); }
Commit	Line	Data
dc5f035e	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
dc5f035e	19
	20	package TestAppStats::Log;
	21	use base qw/Catalyst::Log/;
	22
f1abcb4a	23	sub info { push(@TestAppStats::log_messages, @_); }
f1abcb4a	24	sub debug { push(@TestAppStats::log_messages, @_); }