#!/usr/bin/perl
use 5.018;
use Log::Dispatch::FileRotate;
use Log::Log4perl qw/:easy :no_extra_logdie_message/;
use strict;
use warnings;

local $/ = undef;
Log::Log4perl::init(\<DATA>);

local $| = 1;
INFO("LOG 1: Sleep for 61 seconds");
1;

__DATA__
# Layout for logging
# [Date] [Priority] [File::Caller] [Line Number] > Message \n
layout_pattern = [%d{yyyy-MM-ddTHH:mm:ss}] [%p] [%F{1}::%M] [%L] > %m %n

##
## LOGGERS
##
log4perl.logger = INFO, LogRotate

# Logging to file
# - Rotates every minute
# - Last 8 minutes kept
# (Only INFO level priority and higher messages are logged to file)
log4perl.appender.LogRotate.layout.ConversionPattern = ${layout_pattern}
log4perl.appender.LogRotate             = Log::Dispatch::FileRotate
log4perl.appender.LogRotate.filename    = Timed_Rotate.log
log4perl.appender.LogRotate.layout      = Log::Log4perl::Layout::PatternLayout
log4perl.appender.LogRotate.max         = 8
log4perl.appender.LogRotate.mode        = append
# 'log4j' style doesn't work as expected
log4perl.appender.LogRotate.DatePattern = yyyy-MM-dd-HH-MM
# ... neither does 'Date::Manip' style
# log4perl.appender.LogRotate.DatePattern = 0:0:0:0:0:1:0