Hi
i have tried log4perl in my perl file itself with out any configuration file. And i have install Devel::Cover and it seems fine. See the result
root@uniliver-rt39:~/RT/Bin# perl -MDevel::Cover Command_rt.pl
Devel::Cover 0.73: Collecting coverage data for branch, condition, pod
+, statement, subroutine and time.
Selecting packages matching:
Ignoring packages matching:
/Devel/Cover[./]
Ignoring packages in:
.
/etc/perl
/usr/lib/perl/5.10.1
/usr/lib/perl5
/usr/local/lib/perl/5.10.1
/usr/local/share/perl/5.10.1
/usr/share/perl/5.10.1
/usr/share/perl5
<tr><td align='center'>001</td><td align='center'>1007</td><td align='
+center'>SAT_CR</td><td align='center'>new</td><td align='center'>fgfh
+h - CR</td><td>2011-03-29 16:17:27</td><td align='center'>RT_System</
+td></tr>
<tr><td align='center'>001</td><td align='center'>1007</td><td align='
+center'>SAT_CR</td><td align='center'>new</td><td align='center'>fgfh
+h - CR</td><td>2011-03-29 16:17:27</td><td align='center'>RT_System</
+td></tr>
<tr><td align='center'>002</td><td align='center'>1009</td><td align='
+center'>SAT_CR</td><td align='center'>new</td><td align='center'>- CR
+</td><td>2011-03-29 16:17:37</td><td align='center'>RT_System</td></t
+r>
<tr><td align='center'>001</td><td align='center'>1007</td><td align='
+center'>SAT_CR</td><td align='center'>new</td><td align='center'>fgfh
+h - CR</td><td>2011-03-29 16:17:27</td><td align='center'>RT_System</
+td></tr>
<tr><td align='center'>002</td><td align='center'>1009</td><td align='
+center'>SAT_CR</td><td align='center'>new</td><td align='center'>- CR
+</td><td>2011-03-29 16:17:37</td><td align='center'>RT_System</td></t
+r>
<tr><td align='center'>003</td><td align='center'>1063</td><td align='
+center'>SAT</td><td align='center'>new</td><td align='center'>test</t
+d><td>2011-03-29 20:56:36</td><td align='center'>Srinivasan</td></tr>
3 tickets avialable with out a owner. Mail sent to corresponding peopl
+e.
Devel::Cover: Writing coverage database to /root/RT/Bin/cover_db/runs/
+1301494354.19595.31253
---------------------------- ------ ------ ------ ------ ------ ------
+ ------
File stmt bran cond sub pod time
+ total
---------------------------- ------ ------ ------ ------ ------ ------
+ ------
Command_rt.pl 91.9 50.0 50.0 100.0 n/a 100.0
+ 86.2
Total 91.9 50.0 50.0 100.0 n/a 100.0
+ 86.2
---------------------------- ------ ------ ------ ------ ------ ------
+ ------
My Log4perl setting in my perl file seems like this
our $con = q(
############################################################
# A simple root logger with a Log::Log4perl::Appender::File
# file appender in Perl.
############################################################
log4perl.rootLogger=ALL, LOGFILE
log4perl.appender.LOGFILE=Log::Log4perl::Appender::File
log4perl.appender.Logfile.filename =
log4perl.appender.LOGFILE.filename= sub {&file;}
log4perl.appender.LOGFILE.mode=append
log4perl.appender.LOGFILE.layout = Log::Log4perl::Layout::Pa
+tternLayout
log4perl.appender.LOGFILE.layout.ConversionPattern =[%d][%L][%
+p]-## %m ##%n
log4perl.appender.Screen = Log::Log4perl::Appender::Sc
+reen
log4perl.appender.Screen.layout = Log::Log4perl::Layout::Patte
+rnLayout
log4perl.appender.Screen.stderr = 0
log4perl.appender.Screen.layout.ConversionPattern =%L,[%p], %m
+%n
);
Log::Log4perl::init( \$con );
$logger = Log::Log4perl->get_logger($0);
Thanks,
Srini K
|