#!/usr/bin/perl -l

use strict;
use warnings;
use Log::Dispatch::FileRotate;
use Log::Log4perl qw(get_logger);

my $conf = q(
    log4perl.category.fileLogger       = INFO, Logfile
    log4perl.appender.Logfile          = Log::Dispatch::FileRotate
    log4perl.appender.Logfile.filename = code_review.log
    log4perl.appender.Logfile.mode     = append
    log4perl.appender.Logfile.max      = 15
    log4perl.appender.Logfile.size     = 15000
    log4perl.appender.Logfile.layout   = \
                      Log::Log4perl::Layout::PatternLayout
    log4perl.appender.Logfile.layout.ConversionPattern = \
                      [%d (%P) %rms %p] %m%n
);

Log::Log4perl->init( \$conf );