| 2 |
## $Id$ |
## $Id$ |
| 3 |
## ------------------------------------------------------------------------- |
## ------------------------------------------------------------------------- |
| 4 |
## $Log$ |
## $Log$ |
| 5 |
|
## Revision 1.2 2003/03/28 03:07:41 joko |
| 6 |
|
## minor fix: 'run_cmd' required here |
| 7 |
|
## |
| 8 |
## Revision 1.1 2003/03/27 15:39:55 joko |
## Revision 1.1 2003/03/27 15:39:55 joko |
| 9 |
## initial commit, jobs -core and -api |
## initial commit, jobs -core and -api |
| 10 |
## |
## |
| 22 |
|
|
| 23 |
#use Data::Dumper; |
#use Data::Dumper; |
| 24 |
#use Data::Mungle::Transform::Deep qw( merge_to expand ); |
#use Data::Mungle::Transform::Deep qw( merge_to expand ); |
| 25 |
#use shortcuts qw( run_cmd ); |
use shortcuts qw( run_cmd ); |
| 26 |
|
|
| 27 |
# get logger instance |
# get logger instance |
| 28 |
my $logger = Log::Dispatch::Config->instance; |
my $logger = Log::Dispatch::Config->instance; |