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

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

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

revision 1.1 by joko, Fri Nov 29 04:49:20 2002 UTC revision 1.2 by joko, Thu Dec 5 13:57:22 2002 UTC
# Line 3  Line 3 
3  #  $Id$  #  $Id$
4  #  #
5  #  $Log$  #  $Log$
6    #  Revision 1.2  2002/12/05 13:57:22  joko
7    #  + now able to export 'scalar2utf8'
8    #  + comments
9    #
10  #  Revision 1.1  2002/11/29 04:49:20  joko  #  Revision 1.1  2002/11/29 04:49:20  joko
11  #  + initial check-in  #  + initial check-in
12  #  #
# Line 19  use warnings; Line 23  use warnings;
23    
24  require Exporter;  require Exporter;
25  our @ISA = qw( Exporter );  our @ISA = qw( Exporter );
26  our @EXPORT_OK = qw( &var2utf8 &var_utf2iso );  our @EXPORT_OK = qw( &var2utf8 &var_utf2iso &scalar2utf8 );
27    
28  use Unicode::String qw(utf8 latin1);  use Unicode::String qw(utf8 latin1);
29    
30    # TODO: refactor using Greg London's "Iterate" from CPAN
31  sub var2utf8 {  sub var2utf8 {
32    my $vref = shift;    my $vref = shift;
33    if (ref $vref eq 'HASH') {    if (ref $vref eq 'HASH') {
# Line 53  sub scalar2utf8 { Line 58  sub scalar2utf8 {
58    }    }
59  }  }
60    
61    # TODO: refactor using Greg London's "Iterate" from CPAN
62  sub var_utf2iso {  sub var_utf2iso {
63    my $vref = shift;    my $vref = shift;
64    if (ref $vref eq 'HASH') {    if (ref $vref eq 'HASH') {
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed