/[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.7 by joko, Sun Jan 19 03:26:59 2003 UTC revision 1.8 by joko, Sun Feb 9 05:10:56 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ---------------------------------------------------------------------------  ## ---------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.8  2003/02/09 05:10:56  joko
6    ##  + minor update
7    ##
8  ##  Revision 1.7  2003/01/19 03:26:59  joko  ##  Revision 1.7  2003/01/19 03:26:59  joko
9  ##  + added 'sub deep_copy'  -  refactored from libp  ##  + added 'sub deep_copy'  -  refactored from libp
10  ##  + add 'sub merge'  -  exported from CPAN's 'Hash::Merge'  ##  + add 'sub merge'  -  exported from CPAN's 'Hash::Merge'
# Line 55  use Data::Dumper; Line 58  use Data::Dumper;
58  use Data::Transform::Encode qw( var_utf2iso var2utf8 scalar2utf8 );  use Data::Transform::Encode qw( var_utf2iso var2utf8 scalar2utf8 );
59    
60  use Hash::Merge qw( merge );  use Hash::Merge qw( merge );
 #use libp qw( deep_copy );  
61  use Iterate;  use Iterate;
62    
63  sub var_NumericalHashToArray {  sub var_NumericalHashToArray {
# Line 333  sub hash2object_traverse_mixin { Line 335  sub hash2object_traverse_mixin {
335        } else {        } else {
336          my $val = getStructSlotByStringyAddress($data, \@indexstack);          my $val = getStructSlotByStringyAddress($data, \@indexstack);
337                    
338  print Dumper($options);  #print Dumper($options);
339          my $field_target = $field;          my $field_target = $field;
340          if (my $pattern = $options->{pattern_strip_key}) {          if (my $pattern = $options->{pattern_strip_key}) {
341            print "pattern: $pattern", "\n";            print "pattern: $pattern", "\n";
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed