6 |
## |
## |
7 |
## ---------------------------------------------------------------------------------------- |
## ---------------------------------------------------------------------------------------- |
8 |
## $Log$ |
## $Log$ |
9 |
|
## Revision 1.7 2003/03/27 15:31:16 joko |
10 |
|
## fixes to modules regarding new namespace(s) below Data::Mungle::* |
11 |
|
## |
12 |
|
## Revision 1.6 2003/02/21 01:47:53 joko |
13 |
|
## renamed core function |
14 |
|
## |
15 |
## Revision 1.5 2003/02/20 20:24:33 joko |
## Revision 1.5 2003/02/20 20:24:33 joko |
16 |
## + additional pre-flight checks |
## + additional pre-flight checks |
17 |
## |
## |
49 |
use Data::Dumper; |
use Data::Dumper; |
50 |
use Hash::Merge qw( merge ); |
use Hash::Merge qw( merge ); |
51 |
use libdb qw( hash2Sql ); |
use libdb qw( hash2Sql ); |
52 |
use Data::Transform::Deep qw( hash2object ); |
use Data::Mungle::Transform::Deep qw( merge_to ); |
53 |
|
|
54 |
|
|
55 |
# get logger instance |
# get logger instance |
477 |
# mix in (merge) values ... |
# mix in (merge) values ... |
478 |
# TODO: use Hash::Merge here? benchmark! |
# TODO: use Hash::Merge here? benchmark! |
479 |
# no! we'd need a Object::Merge here! it's *...2object* |
# no! we'd need a Object::Merge here! it's *...2object* |
480 |
hash2object($object, $map); |
merge_to($object, $map); |
481 |
|
|
482 |
# trace |
# trace |
483 |
#print Dumper($object); |
#print Dumper($object); |
509 |
# mix in values |
# mix in values |
510 |
#print Dumper($object); |
#print Dumper($object); |
511 |
# TODO: use Hash::Merge here??? |
# TODO: use Hash::Merge here??? |
512 |
hash2object($object, $map); |
merge_to($object, $map); |
513 |
#print Dumper($object); |
#print Dumper($object); |
514 |
#exit; |
#exit; |
515 |
|
|