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 0011007SAT_CRnewfgfhh - CR2011-03-29 16:17:27RT_System 0011007SAT_CRnewfgfhh - CR2011-03-29 16:17:27RT_System 0021009SAT_CRnew- CR2011-03-29 16:17:37RT_System 0011007SAT_CRnewfgfhh - CR2011-03-29 16:17:27RT_System 0021009SAT_CRnew- CR2011-03-29 16:17:37RT_System 0031063SATnewtest2011-03-29 20:56:36Srinivasan 3 tickets avialable with out a owner. Mail sent to corresponding people. 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 ---------------------------- ------ ------ ------ ------ ------ ------ ------ ##

##

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::PatternLayout
        log4perl.appender.LOGFILE.layout.ConversionPattern =[%d][%L][%p]-## %m ##%n
        log4perl.appender.Screen         = Log::Log4perl::Appender::Screen
        log4perl.appender.Screen.layout = Log::Log4perl::Layout::PatternLayout
        log4perl.appender.Screen.stderr  = 0
        log4perl.appender.Screen.layout.ConversionPattern =%L,[%p], %m%n
);
Log::Log4perl::init( \$con );
$logger = Log::Log4perl->get_logger($0);