2 |
## $Id$ |
## $Id$ |
3 |
## --------------------------------------------------------------------------- |
## --------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.17 2003/03/27 15:17:07 joko |
6 |
|
## namespace fixes for Data::Mungle::* |
7 |
|
## |
8 |
|
## Revision 1.16 2003/03/27 15:04:52 joko |
9 |
|
## minor update: comment |
10 |
|
## |
11 |
## Revision 1.15 2003/02/27 14:39:48 jonen |
## Revision 1.15 2003/02/27 14:39:48 jonen |
12 |
## + fixed bug at _hash2object() |
## + fixed bug at _hash2object() |
13 |
## |
## |
62 |
## --------------------------------------------------------------------------- |
## --------------------------------------------------------------------------- |
63 |
|
|
64 |
|
|
65 |
package Data::Transform::Deep; |
package Data::Mungle::Transform::Deep; |
66 |
|
|
67 |
use strict; |
use strict; |
68 |
use warnings; |
use warnings; |
81 |
use Iterate; |
use Iterate; |
82 |
|
|
83 |
use Pitonyak::DeepCopy; |
use Pitonyak::DeepCopy; |
84 |
use Data::Transform::Encode qw( latin_to_utf8 latin_to_utf8_scalar utf8_to_latin utf8_to_latin_scalar ); |
use Data::Mungle::Transform::Encode qw( latin_to_utf8 latin_to_utf8_scalar utf8_to_latin utf8_to_latin_scalar ); |
85 |
use Data::Code::Ref qw( ref_slot ); |
use Data::Mungle::Code::Ref qw( ref_slot ); |
86 |
|
|
87 |
sub numhash2list { |
sub numhash2list { |
88 |
my $vref = shift; |
my $vref = shift; |
297 |
sub merge_to { |
sub merge_to { |
298 |
_hash2object(@_); |
_hash2object(@_); |
299 |
# TODO: |
# TODO: |
300 |
# re-implement using CPAN's "Iterate". |
# re-implement using CPAN's "Iterate" and/or a modified Hash::Merge. |
301 |
} |
} |
302 |
|
|
303 |
|
|