#!/usr/local/bin/perl
use strict; use warnings; $| = 1;
# use Vi::QuickFix;
# use 5.010;

use lib '../lib';
use Log::Log4perl qw(get_logger);

Log::Log4perl::init_and_watch( [qw( root.conf one.conf)], shift);

while ( 1 ) {
    get_logger('')->info('root...');
    get_logger('one')->info('one...');
    print "\npress 'enter' for another sample, ^C to quit> ";
    <STDIN>;
}

__END__
