Thanks for your suggestion. I've written a Logger package:
package Logger;
use Mojo::Log;
sub new {
my $class = shift;
my $self = {$LogLine = '', $app = shift};
bless $self, $class;
return $self;
}
sub add {
my ( $self, $LogItem ) = @_;
my $time = FormatDate();
$self->{$LogLine} .= "[ $time ] :: $LogItem\n" if defined($LogItem
+);
$app->log->debug($LogItem);
}
sub get {
my( $self ) = @_;
return $self->{$LogLine};
}
sub clear {
my( $self ) = @_;
$self->{$LogLine} = '';
}
sub FormatDate {
my $Offset = shift;
$Offset = 0 unless ($Offset);
my ($Second, $Minute, $Hour, $Day, $Month, $Year, $WeekDay, $DayOf
+Year, $IsDST) = localtime(time+$Offset);
$Year = $Year + 1900;
$Month = $Month + 1;
$Day = sprintf ("%02s", $Day);
$Month = sprintf ("%02s", $Month);
$Hour = sprintf ("%02s", $Hour);
$Minute = sprintf ("%02s", $Minute);
$Second = sprintf ("%02s", $Second);
return $Year."-".$Month."-".$Day." ".$Hour.":".$Minute.":".$Second
+;
}
1;
and it's working very well.