Select Code to Download

package SomeParser;
use strict;
...

1;

if ($ENV{TEST_VERBOSE}) {
    Log::Log4perl->easy_init({ level => $DEBUG, layout => '#%5p %F(%L)
+ - %m%n'});
...
    Log::Log4perl->easy_init({ level => $WARN, layout => '#%5p %F(%L) 
+- %m%n'});
}