2 |
## $Id$ |
## $Id$ |
3 |
## --------------------------------------------------------------------------- |
## --------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.18 2003/03/28 03:07:26 jonen |
6 |
|
## + minor changes |
7 |
|
## |
8 |
|
## Revision 1.17 2003/03/27 15:17:07 joko |
9 |
|
## namespace fixes for Data::Mungle::* |
10 |
|
## |
11 |
## Revision 1.16 2003/03/27 15:04:52 joko |
## Revision 1.16 2003/03/27 15:04:52 joko |
12 |
## minor update: comment |
## minor update: comment |
13 |
## |
## |
65 |
## --------------------------------------------------------------------------- |
## --------------------------------------------------------------------------- |
66 |
|
|
67 |
|
|
68 |
package Data::Transform::Deep; |
package Data::Mungle::Transform::Deep; |
69 |
|
|
70 |
use strict; |
use strict; |
71 |
use warnings; |
use warnings; |
84 |
use Iterate; |
use Iterate; |
85 |
|
|
86 |
use Pitonyak::DeepCopy; |
use Pitonyak::DeepCopy; |
87 |
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 ); |
88 |
use Data::Code::Ref qw( ref_slot ); |
use Data::Mungle::Code::Ref qw( ref_slot ); |
89 |
|
|
90 |
sub numhash2list { |
sub numhash2list { |
91 |
my $vref = shift; |
my $vref = shift; |
494 |
my $classname = ref $obj; |
my $classname = ref $obj; |
495 |
|
|
496 |
if($option == 1) { |
if($option == 1) { |
497 |
my $string = "o_" . $classname . "_" .$obj->{guid}; |
my $string = "o_" . $obj->{guid} . "_" . $classname; |
|
return $string; |
|
498 |
} |
} |
499 |
|
return $string; |
500 |
} |
} |
501 |
|
|
502 |
|
|