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;