package SomeParser;
use strict;
use warnings;
use Log::Log4perl;
my $logger     = Log::Log4perl->get_logger('parser');
my $logexport  = Log::Log4perl->get_logger('parser.export');
my $logtext    = Log::Log4perl->get_logger('parser.events.text');
my $logstart   = Log::Log4perl->get_logger('parser.events.start');
my $logend     = Log::Log4perl->get_logger('parser.events.end');

# stuff
sub tag_opened {
    my ($self, $parser, $tag, $attr, $text) = @_;
    $logstart->is_debug && $logstart->debug(sprintf "<%s>",  $tag);
}

sub tag_closed {
    my ($self, $parser, $tag) = @_;
    $logend->is_debug && $logend->debug(sprintf "</%s>",  $tag);
}

1;


##</code><code>##

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