1 |
|
## ------------------------------------------------------------------------- |
2 |
|
## |
3 |
## $Id$ |
## $Id$ |
4 |
## |
## |
5 |
## Copyright (c) 2002 Andreas Motl <andreas.motl@ilo.de> |
## Copyright (c) 2002 Andreas Motl <andreas.motl@ilo.de> |
6 |
## |
## |
7 |
## See COPYRIGHT section in pod text below for usage and distribution rights. |
## See COPYRIGHT section in associated pod text |
8 |
|
## or below for usage and distribution rights. |
9 |
## |
## |
10 |
## ---------------------------------------------------------------------------------------- |
## ------------------------------------------------------------------------- |
11 |
## $Log$ |
## $Log$ |
12 |
|
## Revision 1.9 2003/05/13 08:16:44 joko |
13 |
|
## minor update: modified header |
14 |
|
## |
15 |
|
## Revision 1.8 2003/03/27 15:31:15 joko |
16 |
|
## fixes to modules regarding new namespace(s) below Data::Mungle::* |
17 |
|
## |
18 |
## Revision 1.7 2003/02/21 08:00:24 joko |
## Revision 1.7 2003/02/21 08:00:24 joko |
19 |
## debugging |
## debugging |
20 |
## |
## |
57 |
use Data::Dumper; |
use Data::Dumper; |
58 |
use Hash::Merge qw( merge ); |
use Hash::Merge qw( merge ); |
59 |
|
|
60 |
use Data::Compare::Struct qw( isEmpty ); |
use Data::Mungle::Compare::Struct qw( isEmpty ); |
61 |
|
|
62 |
# get logger instance |
# get logger instance |
63 |
my $logger = Log::Dispatch::Config->instance; |
my $logger = Log::Dispatch::Config->instance; |