Mojo::Log::JSON

package Mojo::Log::JSON;

use Mojo::Base 'Mojo::Log';

use HTTP::Date qw/ time2iso /;
use JSON qw/ to_json /;

sub format {
    my ( $self, $level, @lines ) = @_;

    my %msg = (
        ref $lines[0]       #
        ? %{ $lines[0] }    #
        : ( message => join( "\n", @lines ) ),

        level    => $level,
        datetime => time2iso(),
    );

    return to_json( \%msg, { utf8 => 1, canonical => 1 } ) . "\n";
}

1;