}
sub _build_max_level {
- my ($self) = @_;
- return $self->level_names->[-1];
+ my ($self) = @_;
+ return $self->level_names->[-1];
}
sub _build__level_active {
$method = '(none)' unless defined $method;
return {
- '%' => '%', t => $self->_render_time($metadata->{timestamp}),
+ '%' => '%', 'n' => "\n",
+ t => $self->_render_time($metadata->{timestamp}),
r => $self->_render_remote($metadata->{object_remote}),
s => $self->_render_log(@$content), l => $level,
c => $metadata->{controller}, p => $metadata->{package}, m => $method,
sub _render_remote {
my ($self, $remote) = @_;
- return 'local' if ! defined $remote || ! defined $remote->{connection_id};
- return 'remote #' . $remote->{connection_id};
+ return 'local' unless defined $remote;
+ my $conn_id = $remote->{connection_id};
+ $conn_id = '(uninit)' unless defined $conn_id;
+ return "remote #$conn_id";
}
sub _render_log {
#router will hold this logger forever
#and send it all log messages
- router->connect(Object::Remote::Logging::WarnLogger->new(
+ router->connect(Object::Remote::Logging::Logger->new(
level_names => arg_levels, format => '%s at %f line %i, log level: %l'
min_level => 'warn', max_level => 'error',
));
=item %r
-Log::Remote connection information rendered into a string.
+Object::Remote connection information rendered into a string.
=item %c
A literal %.
+=item %n
+
+A newline.
+
=back
=back