use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($ERROR);
my $logger = get_logger();

# Appenders
my $appender = Log::Log4perl::Appender->new(
    "Log::Dispatch::File",
    filename => "grruvi.log",
    mode => 'trunc'
);
$logger->add_appender($appender);

# Layouts
my $layout = Log::Log4perl::Layout::PatternLayout->new("%d %p> %F{1}:%L %M - %m%n");
$appender->layout($layout);

my $timer_log = Glib::Timeout->add(100, \&log);

sub log {
    if (defined $!){
        if (length $! != 0 and length $! <= 30){
#            $log->error($!)
            $logger->error($!);
        }
    }
}