use warnings;
use strict;

use Log::Log4perl qw(:easy);
use TestModule;

my $log_file = "GIVE SOME PATH";
my %key_value_pairs = (
	"log4perl.rootLogger" => "DEBUG, Logfile,TestModule,Screen",
	"log4perl.appender.Logfile" => "Log::Log4perl::Appender::File",
	"log4perl.appender.Logfile.mode"  => "clobber",
	"log4perl.appender.Logfile.filename"  => "$log_file",
	"log4perl.appender.Logfile.layout"=> "Log::Log4perl::Layout::PatternLayout",
	"log4perl.appender.Logfile.layout.ConversionPattern" => "%d %p %C:%L> %m%n",
        "log4perl.appender.TestModule" => "Log::Log4perl::Appender::File",
	"log4perl.appender.TestModule.mode"  => "clobber",
        "log4perl.appender.TestModule.filename"  => "$log_file",
        "log4perl.appender.TestModule.layout"=> "Log::Log4perl::Layout::PatternLayout",
	"log4perl.appender.TestModule.layout.ConversionPattern" => "%d %p %C:%L> %m%n",
	"log4perl.appender.Screen"  => "Log::Log4perl::Appender::Screen",
	"log4perl.appender.Screen.layout" => "Log::Log4perl::Layout::PatternLayout",
	"log4perl.appender.Screen.layout.ConversionPattern"  => "%d %p %C:%L> %m%n",
);

Log::Log4perl::init(\%key_value_pairs);

my $testmodule = TestModule->new(
        "key" => "value",
);

INFO "Creating object for testmodule";

$testmodule->_printTime();