/[cvs]/nfo/perl/libs/Data/Rap/Property.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Rap/Property.pm

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

revision 1.1 by joko, Tue Feb 18 15:36:20 2003 UTC revision 1.3 by joko, Thu Mar 27 15:31:05 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ----------------------------------------------------------------------  ## ----------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.3  2003/03/27 15:31:05  joko
6    ##  fixes to modules regarding new namespace(s) below Data::Mungle::*
7    ##
8    ##  Revision 1.2  2003/02/20 20:15:45  joko
9    ##  modified logging style
10    ##  + property merging instead of dumb overriding
11    ##
12  ##  Revision 1.1  2003/02/18 15:36:20  joko  ##  Revision 1.1  2003/02/18 15:36:20  joko
13  ##  + initial commit  ##  + initial commit
14  ##  ##
# Line 45  sub loadFromPerlFile { Line 52  sub loadFromPerlFile {
52    # FIXME    # FIXME
53    $file = "../$file";    $file = "../$file";
54        
55    $self->log("Loading $file.", 'notice');    $self->log("Loading resource file '$file'.", 'info');
56        
57    my $storage = Data::Storage::Handler::File->new( filename => $file );    my $storage = Data::Storage::Handler::File->new( filename => $file );
58    if (!$storage->exists()) {    if (!$storage->exists()) {
59      $self->log("File '$file' does not exist.", 'error');      $self->log("Resource not found: File '$file' does not exist.", 'error');
60      return;      return;
61    }    }
62    my $content = $storage->toString();    my $content = $storage->toString();
63    
64    $self->load("/Data/Code/Scalar");    $self->load("/Data/Mungle/Code/Scalar");
65    my $properties = $self->eval($content, $varnames);    my $properties = $self->eval($content, $varnames);
66    
67      #print Dumper($self);
68        
69    $self->set_property($name, $properties);    $self->merge_properties($name, $properties);
70      
71      #print Dumper($self);
72        
73  }  }
74    
# Line 67  sub loadFromPerlModule { Line 78  sub loadFromPerlModule {
78    my $name = shift;    my $name = shift;
79    my $varnames = shift;    my $varnames = shift;
80    
81    $self->load("/Data/Code/Module");    $self->log("Loading Perl Module '$module'.", 'info');
82    
83      $self->load("/Data/Mungle/Code/Module");
84    my $properties = $self->eval_vars($module, $varnames);    my $properties = $self->eval_vars($module, $varnames);
85    
86    # trace    # trace
87      #print Dumper($properties);      #print Dumper($properties);
88      #exit;      #exit;
89    
90    $self->set_property($name, $properties);    $self->merge_properties($name, $properties);
91    
92  }  }
93    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed