use warnings;
use strict;

package Foo {
	use Carp;
	sub bar {
		carp "Foo Bar";
	}
}

use Mojo::Log;

my $log = Mojo::Log->new;
local $SIG{__WARN__} = sub { $log->warn(@_) };

Foo::bar();