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, $DayOfYear, $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;