/[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.11 by joko, Thu Feb 20 21:13:54 2003 UTC revision 1.13 by joko, Fri Feb 21 01:48:50 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ---------------------------------------------------------------------------  ## ---------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.13  2003/02/21 01:48:50  joko
6    ##  renamed core function
7    ##
8    ##  Revision 1.12  2003/02/20 22:45:19  joko
9    ##  fix regarding new deep_copy
10    ##
11  ##  Revision 1.11  2003/02/20 21:13:54  joko  ##  Revision 1.11  2003/02/20 21:13:54  joko
12  ##  - removed implementation of deep_copy2 - get this from the Pitonyak namespace (now cloned to repository)  ##  - removed implementation of deep_copy2 - get this from the Pitonyak namespace (now cloned to repository)
13  ##  ##
# Line 61  use attributes; Line 67  use attributes;
67  use Data::Dumper;  use Data::Dumper;
68  use Iterate;  use Iterate;
69    
70    use Pitonyak::DeepCopy;
71  use Data::Transform::Encode qw( latin_to_utf8 latin_to_utf8_scalar utf8_to_latin utf8_to_latin_scalar );  use Data::Transform::Encode qw( latin_to_utf8 latin_to_utf8_scalar utf8_to_latin utf8_to_latin_scalar );
72  use Data::Code::Ref qw( ref_slot );  use Data::Code::Ref qw( ref_slot );
73    
# Line 132  sub _var_deref_test { Line 139  sub _var_deref_test {
139  }  }
140    
141    
142    # convert values in hash to utf8 (and back) to be ready for (e.g.) encapsulation in XML
143    # but still using the known latin locale stuff
144  sub expand {  sub expand {
145    
146    my $obj = shift;    my $obj = shift;
# Line 201  sub expand { Line 210  sub expand {
210    
211    # convert all values to utf8 (inside complex struct)    # convert all values to utf8 (inside complex struct)
212      # now done in core-item-callbacks via Greg London's "Iterate" from CPAN      # now done in core-item-callbacks via Greg London's "Iterate" from CPAN
213      # var2utf8($result) if ($options->{utf8});      # latin_to_utf8($result) if ($options->{utf8});
214    
215    # destroy persistent object from memory to be sure to get a fresh one next time    # destroy persistent object from memory to be sure to get a fresh one next time
216    #undef $obj if $options->{destroy};    #undef $obj if $options->{destroy};
# Line 445  sub deep_copy1 { Line 454  sub deep_copy1 {
454  # Copyright 2002, Andrew Pitonyak (perlboy@pitonyak.org)  # Copyright 2002, Andrew Pitonyak (perlboy@pitonyak.org)
455  # please visit: http://www.pitonyak.org/code/perl/Pitonyak/DeepCopy.pm.html  # please visit: http://www.pitonyak.org/code/perl/Pitonyak/DeepCopy.pm.html
456  sub deep_copy {  sub deep_copy {
457    Pitonyak::deep_copy(@_);    Pitonyak::DeepCopy::deep_copy(@_);
458  }  }
459    
460    
461  1;  1;
462  __END__  __END__
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.13
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed