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 {