use Moo;
use Scalar::Util qw(weaken);
-has format => ( is => 'ro', required => 1, default => sub { '[%l %r] %s' } );
+has format => ( is => 'ro', required => 1, default => sub { '%l: %s' } );
has level_names => ( is => 'ro', required => 1 );
has min_level => ( is => 'ro', required => 1 );
has max_level => ( is => 'ro' );
sub _create_format_lookup {
my ($self, $level, $metadata, $content) = @_;
+ my $method = $metadata->{method};
+
+ $method = '(none)' unless defined $method;
+
return {
'%' => '%', t => $self->_render_time($metadata->{timestamp}),
r => $self->_render_remote($metadata->{object_remote}),
- s => $self->_render_log(@$content), l => $level, p => $metadata->{package},
+ s => $self->_render_log(@$content), l => $level,
+ p => $metadata->{package}, m => $method,
+ f => $metadata->{filename}, i => $metadata->{line},
};
}