#!/usr/bin/perl
use strict;
use warnings;

use Log::Log4perl;
use Data::Dumper;

Log::Log4perl::init('log4perl.conf');


my $logger = Log::Log4perl->get_logger();

$logger->info("Test before");

my $appender = Log::Log4perl::Appender::String->new("name" => 'string_appender');
my $pattern = Log::Log4perl::Layout::PatternLayout->new("[%p] %m%n");
$appender->layout($pattern);
$logger->add_appender($appender);

$logger->info("Test after");

print("APPENDER STRING: " . $appender->string() . "\n");
print("APPENDERS: " . Dumper(Log::Log4perl::appenders()) . "\n");