--- nfo/perl/libs/Data/Mungle/Transform/Deep.pm 2003/02/22 17:13:55 1.14 +++ nfo/perl/libs/Data/Mungle/Transform/Deep.pm 2003/03/27 15:17:07 1.17 @@ -1,7 +1,16 @@ ## --------------------------------------------------------------------------- -## $Id: Deep.pm,v 1.14 2003/02/22 17:13:55 jonen Exp $ +## $Id: Deep.pm,v 1.17 2003/03/27 15:17:07 joko Exp $ ## --------------------------------------------------------------------------- ## $Log: Deep.pm,v $ +## Revision 1.17 2003/03/27 15:17:07 joko +## namespace fixes for Data::Mungle::* +## +## Revision 1.16 2003/03/27 15:04:52 joko +## minor update: comment +## +## Revision 1.15 2003/02/27 14:39:48 jonen +## + fixed bug at _hash2object() +## ## Revision 1.14 2003/02/22 17:13:55 jonen ## + added function 'childObject2string()' to encode 'child'-references to option related string ## + use new option at 'expand()' for replacing 'childObject2string' @@ -53,7 +62,7 @@ ## --------------------------------------------------------------------------- -package Data::Transform::Deep; +package Data::Mungle::Transform::Deep; use strict; use warnings; @@ -72,8 +81,8 @@ use Iterate; use Pitonyak::DeepCopy; -use Data::Transform::Encode qw( latin_to_utf8 latin_to_utf8_scalar utf8_to_latin utf8_to_latin_scalar ); -use Data::Code::Ref qw( ref_slot ); +use Data::Mungle::Transform::Encode qw( latin_to_utf8 latin_to_utf8_scalar utf8_to_latin utf8_to_latin_scalar ); +use Data::Mungle::Code::Ref qw( ref_slot ); sub numhash2list { my $vref = shift; @@ -288,7 +297,7 @@ sub merge_to { _hash2object(@_); # TODO: - # re-implement using CPAN's "Iterate". + # re-implement using CPAN's "Iterate" and/or a modified Hash::Merge. } @@ -305,7 +314,7 @@ numhash2list($data) if ($options->{php}); # utf8-conversion/-encoding (essential for I18N) - var_utf2iso($data) if ($options->{utf8}); + utf8_to_latin($data) if ($options->{utf8}); # get fresh object from database # todo: