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 |
## Revision 1.16 2003/03/27 15:04:52 joko |
9 |
## minor update: comment |
## minor update: comment |
10 |
## |
## |
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; |