package TestApp::FakeLog;
use strict;
use warnings;
use MRO::Compat;
use base qw/Catalyst::Log/;
sub new {
my ($self, $warnings_ref, @args) = @_;
$self = $self->next::method(@args);
$self->{_warnings_ref} = $warnings_ref;
return $self;
}
sub warn {
my ($self, $msg) = @_;
push @{ $self->{_warnings_ref} }, $msg;
}
*debug = *info = *error = *fatal = *is_debug = sub { 1 };
1;