6 |
## |
## |
7 |
## ---------------------------------------------------------------------------------------- |
## ---------------------------------------------------------------------------------------- |
8 |
## $Log$ |
## $Log$ |
9 |
|
## Revision 1.6 2003/03/28 03:08:17 joko |
10 |
|
## fix regarding namespace update |
11 |
|
## |
12 |
## Revision 1.5 2003/02/21 08:34:58 joko |
## Revision 1.5 2003/02/21 08:34:58 joko |
13 |
## modified object hierarchy |
## modified object hierarchy |
14 |
## renamed method |
## renamed method |
44 |
|
|
45 |
use Data::Dumper; |
use Data::Dumper; |
46 |
use libdb qw( quotesql ); |
use libdb qw( quotesql ); |
47 |
use Data::Code::Ref qw( ref_slot ); |
use Data::Mungle::Code::Ref qw( ref_slot ); |
48 |
|
|
49 |
# get logger instance |
# get logger instance |
50 |
my $logger = Log::Dispatch::Config->instance; |
my $logger = Log::Dispatch::Config->instance; |