How about this?
use Mojo::Log; my $file_log = Mojo::Log->new(path => "/tmp/log"); my $log = Mojo::Log->new; $log->on(message => sub { my ($log, $level, @lines) = @_; $file_log->$level(@lines); });