6 if (!eval "use Log::Log4perl;
7 die if $Log::Log4perl::VERSION < 1.29;
9 plan skip_all => 'Log::Log4perl 1.29 not installed'
15 unlink 'myerrs.log' if -e 'myerrs.log';
16 Log::Log4perl->init("$FindBin::Bin/log4perl.conf");
17 use Log::Contextual qw( :log set_logger );
18 set_logger(Log::Log4perl->get_logger);
20 log_error { 'err 14' };
23 log_error { 'err 17' };
26 open my $log, '<', 'myerrs.log';
30 is $datas[0], "file:t/log4perl.t line:20 method:main:: - err 14\n", 'file and line work with Log4perl';
31 is $datas[1], "file:t/log4perl.t line:23 method:main::foo - err 17\n", 'file and line work with Log4perl in a sub';