| 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; |