6 |
## |
## |
7 |
## ---------------------------------------------------------------------------------------- |
## ---------------------------------------------------------------------------------------- |
8 |
## $Log$ |
## $Log$ |
9 |
|
## Revision 1.6 2003/02/21 01:47:53 joko |
10 |
|
## renamed core function |
11 |
|
## |
12 |
## Revision 1.5 2003/02/20 20:24:33 joko |
## Revision 1.5 2003/02/20 20:24:33 joko |
13 |
## + additional pre-flight checks |
## + additional pre-flight checks |
14 |
## |
## |
46 |
use Data::Dumper; |
use Data::Dumper; |
47 |
use Hash::Merge qw( merge ); |
use Hash::Merge qw( merge ); |
48 |
use libdb qw( hash2Sql ); |
use libdb qw( hash2Sql ); |
49 |
use Data::Transform::Deep qw( hash2object ); |
use Data::Transform::Deep qw( merge_to ); |
50 |
|
|
51 |
|
|
52 |
# get logger instance |
# get logger instance |
474 |
# mix in (merge) values ... |
# mix in (merge) values ... |
475 |
# TODO: use Hash::Merge here? benchmark! |
# TODO: use Hash::Merge here? benchmark! |
476 |
# no! we'd need a Object::Merge here! it's *...2object* |
# no! we'd need a Object::Merge here! it's *...2object* |
477 |
hash2object($object, $map); |
merge_to($object, $map); |
478 |
|
|
479 |
# trace |
# trace |
480 |
#print Dumper($object); |
#print Dumper($object); |
506 |
# mix in values |
# mix in values |
507 |
#print Dumper($object); |
#print Dumper($object); |
508 |
# TODO: use Hash::Merge here??? |
# TODO: use Hash::Merge here??? |
509 |
hash2object($object, $map); |
merge_to($object, $map); |
510 |
#print Dumper($object); |
#print Dumper($object); |
511 |
#exit; |
#exit; |
512 |
|
|