6 |
## |
## |
7 |
## ---------------------------------------------------------------------------------------- |
## ---------------------------------------------------------------------------------------- |
8 |
## $Log$ |
## $Log$ |
9 |
|
## Revision 1.6 2002/12/06 04:49:10 jonen |
10 |
|
## + disabled output-puffer here |
11 |
|
## |
12 |
## Revision 1.5 2002/12/05 08:06:05 joko |
## Revision 1.5 2002/12/05 08:06:05 joko |
13 |
## + bugfix with determining empty fields (Null) with DBD::CSV |
## + bugfix with determining empty fields (Null) with DBD::CSV |
14 |
## + debugging |
## + debugging |
51 |
# get logger instance |
# get logger instance |
52 |
my $logger = Log::Dispatch::Config->instance; |
my $logger = Log::Dispatch::Config->instance; |
53 |
|
|
54 |
|
$| = 1; |
55 |
|
|
56 |
sub new { |
sub new { |
57 |
my $invocant = shift; |
my $invocant = shift; |