[log4perl-devel] log4perl and Exception

[Alexander <pus...@gm...>]

Hello!
Sorry for my english.

It's my code and why it's do not work? (see comments)
Log::Log4perl version 1.03

> use Data::Dumper;
> use Proc::Daemon;
> use Getopt::Long;
> use Config::General;
> use Log::Log4perl;
> use Log::Log4perl::Level;
> use Exception qw(:try);
> 
> main();
> 
> sub main
> {
>     print "start\n"; # work
>     my $params = init();
>     log_info(" -=== Start ===- "); # work
>     log_err("test"); # work
> 
>     my $err;
>     my $logger = Log::Log4perl->get_logger("ant-daemon");
>     try
>     {
>         log_err("in try"); # work
>         # some my code
>     }
>     except
>     {
>         my $error=shift;
>         my $id = $error->id;
>         my $text = $error->stringify;
>         chomp($text);
>         $err = "Error id = \"$id\", message = \"$text\"\n";
>         print $err; # work
> 	log_err($err); # do not work!
>     };
> 
> 
>     print "Hey!!\n"; # work
>     $logger->log($INFO, "it's test"); #  do not work!
>     $logger->error("it's test");  #  do not work!
>     log_err("it's test");  #  do not work!
>     if($err)
>     {
>         log_err("fuck");  #  do not work!
> 	print $err; # work
>     }
> }
> 
> sub logmsg
> {
>     my $type = shift;
>     my @what = @_;
>     my $logger = Log::Log4perl->get_logger("ant-daemon");
> 
>     if(defined($type) && scalar(@what) > 0)
>         { $logger->log($type, @what); }
>     else
>     {
>         $logger->log($ERROR, "error in log sub");
>         return 0;
>     }
> 
>     return 1;
> }
> 
> sub log_fatal
> { return logmsg($FATAL, @_); }
> 
> sub log_err
> { return logmsg($ERROR, @_); }
> 
> sub log_warn
> { return logmsg($WARN, @_); }
> 
> sub log_info
> { return logmsg($INFO, @_); }
> 
> sub log_debug
> { return logmsg($DEBUG, @_); }

Alexander Magola