--- nfo/perl/libs/Data/Mungle/Transform/Encode.pm	2002/11/29 04:49:20	1.1
+++ nfo/perl/libs/Data/Mungle/Transform/Encode.pm	2002/12/05 13:57:22	1.2
@@ -1,8 +1,12 @@
 ##############################################
 #
-#  $Id: Encode.pm,v 1.1 2002/11/29 04:49:20 joko Exp $
+#  $Id: Encode.pm,v 1.2 2002/12/05 13:57:22 joko Exp $
 #
 #  $Log: Encode.pm,v $
+#  Revision 1.2  2002/12/05 13:57:22  joko
+#  + now able to export 'scalar2utf8'
+#  + comments
+#
 #  Revision 1.1  2002/11/29 04:49:20  joko
 #  + initial check-in
 #
@@ -19,10 +23,11 @@
 
 require Exporter;
 our @ISA = qw( Exporter );
-our @EXPORT_OK = qw( &var2utf8 &var_utf2iso );
+our @EXPORT_OK = qw( &var2utf8 &var_utf2iso &scalar2utf8 );
 
 use Unicode::String qw(utf8 latin1);
 
+# TODO: refactor using Greg London's "Iterate" from CPAN
 sub var2utf8 {
   my $vref = shift;
   if (ref $vref eq 'HASH') {
@@ -53,6 +58,7 @@
   }
 }
 
+# TODO: refactor using Greg London's "Iterate" from CPAN
 sub var_utf2iso {
   my $vref = shift;
   if (ref $vref eq 'HASH') {