Select Code to Download

log4perl.logger.ClassA = DEBUG, ClassA

...
          my $log_file="/tmp/ClassA".$date.".log";
          return $log_file;
}

BEGIN {
        Log::Log4perl::init_and_watch('/etc/log4perl.conf',5);
        $__PACKAGE__::mylog=Log::Log4perl->get_logger();
}

#   in classa.t at line 8.
#     Tried to use 'ClassA'.
#     Error:  Can't evaluate 'sub  {' (Missing right curly or square b
+racket at (eval 136) line 2, at end of line
# syntax error at (eval 136) line 2, at EOF
# ) at /usr/local/lib/perl5/site_perl/5.8.5/Log/Log4perl/Config.pm lin
+e 715.