/[cvs]/nfo/perl/libs/Data/Mungle/Transform/Deep.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Mungle/Transform/Deep.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by joko, Thu Mar 27 15:04:52 2003 UTC revision 1.18 by jonen, Fri Mar 28 03:07:26 2003 UTC
# Line 2  Line 2 
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  ##  ##
# Line 59  Line 65 
65  ## ---------------------------------------------------------------------------  ## ---------------------------------------------------------------------------
66    
67    
68  package Data::Transform::Deep;  package Data::Mungle::Transform::Deep;
69    
70  use strict;  use strict;
71  use warnings;  use warnings;
# Line 78  use Data::Dumper; Line 84  use Data::Dumper;
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;
# Line 488  sub childObj2string { Line 494  sub childObj2string {
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    
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.18
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed