Using syslog in a mojo app

syslog_app.pl

package MyApp;
use Mojo::Base 'Mojolicious';
use Log::Dispatch;

sub setup {
  my $self = shift;
  ...
  
  # Setup syslog logging
  my $ident = 'some identity string';
  $self->log->on( 'message' => sub {
    my ( undef, $level, @lines ) = @_;
    state $dispatch = Log::Dispatch->new(
      outputs => [
        [
          'Syslog',
          min_level => 'debug',
          facility => 'local0',
          ident => $ident,
        ],
      ],
    );
    for my $line ( @lines ) {
      $dispatch->log( level => $level, message => "$line" );
    }
  } );
  
  ...
}