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

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

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

revision 1.2 by joko, Fri Feb 14 12:54:30 2003 UTC revision 1.4 by joko, Thu Mar 27 15:17:07 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## --------------------------------------------------------------------------------  ## --------------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.4  2003/03/27 15:17:07  joko
6    ##  namespace fixes for Data::Mungle::*
7    ##
8    ##  Revision 1.3  2003/02/21 01:49:24  joko
9    ##  renamed core function
10    ##
11  ##  Revision 1.2  2003/02/14 12:54:30  joko  ##  Revision 1.2  2003/02/14 12:54:30  joko
12  ##  + established first code here  ##  + established first code here
13  ##  ##
# Line 11  Line 17 
17  ## --------------------------------------------------------------------------------  ## --------------------------------------------------------------------------------
18    
19    
20  package Data::Transform::Map;  package Data::Mungle::Transform::Map;
21    
22  use strict;  use strict;
23  use warnings;  use warnings;
# Line 21  use base 'DesignPattern::Object'; Line 27  use base 'DesignPattern::Object';
27    
28  use Data::Dumper;  use Data::Dumper;
29  use XML::Simple;  use XML::Simple;
30  use Data::Transform::Encode qw( var2utf8 var_utf2iso );  use Data::Mungle::Transform::Encode qw( utf8_to_latin );
31  use Data::Compare::Struct qw( getRelations getDifference );  use Data::Mungle::Compare::Struct qw( getRelations getDifference );
32  use Data::Transform::Deep qw( deep_copy );  use Data::Mungle::Transform::Deep qw( deep_copy );
33    
34    
35  sub _init {  sub _init {
# Line 40  sub _touch { Line 46  sub _touch {
46  sub _readSelectDb {  sub _readSelectDb {
47    my $self = shift;    my $self = shift;
48    my $data = XMLin($self->{filename});    my $data = XMLin($self->{filename});
49    var_utf2iso($data);    utf8_to_latin($data);
50    $self->{db} = $data;    $self->{db} = $data;
51  }  }
52    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4

MailToCvsAdmin">MailToCvsAdmin
ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed