use strict;
use base 'Class::Accessor::Fast';
-use Data::Dumper;
+use Data::Dump;
our %LEVELS = ();
sub _dump {
my $self = shift;
- local $Data::Dumper::Terse = 1;
- $self->info( Dumper( @_ ) );
+ $self->info( Data::Dump::dump(@_) );
}
sub _log {
my $self = shift;
my $level = shift;
- my $time = localtime(time);
my $message = join( "\n", @_ );
- $self->{body} .=
- sprintf( "[%s] [catalyst] [%s] %s\n", $time, $level, $message );
+ $self->{body} .= sprintf( "[%s] %s\n", $level, $message );
}
sub _flush {
$self->abort(undef);
}
else {
- print( STDERR $self->body );
+ $self->_send_to_log( $self->body );
}
$self->body(undef);
}
+sub _send_to_log {
+ my $self = shift;
+ print STDERR @_;
+}
+
1;
__END__
=head1 DESCRIPTION
-This module provides the default, simple logging functionality for
-Catalyst.
-If you want something different set C<$c->log> in your application
-module, e.g.:
+This module provides the default, simple logging functionality for Catalyst.
+If you want something different set C<< $c->log >> in your application module,
+e.g.:
$c->log( MyLogger->new );
$c->log->abort(1) if $c->log->can('abort');
+=head2 _send_to_log
+
+ $log->_send_to_log( @messages );
+
+This protected method is what actually sends the log information to STDERR.
+You may subclass this module and override this method to get finer control
+over the log output.
+
=head1 SEE ALSO
L<Catalyst>.