/[cvs]/nfo/perl/libs/Data/Storage/Container.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Storage/Container.pm

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

revision 1.8 by joko, Tue Feb 18 19:19:47 2003 UTC revision 1.10 by joko, Fri Jun 6 03:26:24 2003 UTC
# Line 3  Line 3 
3  #  $Id$  #  $Id$
4  #  #
5  #  $Log$  #  $Log$
6    #  Revision 1.10  2003/06/06 03:26:24  joko
7    #  + sub existsStorage
8    #
9    #  Revision 1.9  2003/03/27 15:31:08  joko
10    #  fixes to modules regarding new namespace(s) below Data::Mungle::*
11    #
12  #  Revision 1.8  2003/02/18 19:19:47  joko  #  Revision 1.8  2003/02/18 19:19:47  joko
13  #  + modified locator handling  #  + modified locator handling
14  #  #
# Line 14  Line 20 
20  #  + temporary fix: (FIXME) now connecting to storage on storagehandle-instantiation  #  + temporary fix: (FIXME) now connecting to storage on storagehandle-instantiation
21  #  #
22  #  Revision 1.5  2003/01/19 02:39:57  joko  #  Revision 1.5  2003/01/19 02:39:57  joko
23  #  + moved 'deep_copy' from module 'libp' to module 'Data::Transform::Deep'  #  + moved 'deep_copy' from module 'libp' to module 'Data.Transform.Deep'
24  #  + preserved order for hashes '$self->{config}' and '$self->{locator}' by using Tie::IxHash  #  + preserved order for hashes '$self->{config}' and '$self->{locator}' by using Tie::IxHash
25  #  #
26  #  Revision 1.4  2002/12/04 07:38:07  jonen  #  Revision 1.4  2002/12/04 07:38:07  jonen
# Line 52  use Data::Dumper; Line 58  use Data::Dumper;
58    
59  use Data::Storage;  use Data::Storage;
60  use Data::Storage::Locator;  use Data::Storage::Locator;
61  use Data::Transform::Deep qw( deep_copy );  use Data::Mungle::Transform::Deep qw( deep_copy );
62  use Data::Compare::Struct qw( isEmpty );  use Data::Mungle::Compare::Struct qw( isEmpty );
63    
64  sub new {  sub new {
65    my $invocant = shift;    my $invocant = shift;
# Line 101  sub addStorage { Line 107  sub addStorage {
107    $self->{storage}->{$name} = $storage;    $self->{storage}->{$name} = $storage;
108  }  }
109    
110    sub existsStorage {
111      my $self = shift;
112      my $name = shift;
113      return exists $self->{storage}->{$name};
114    }
115    
116  sub initLocator {  sub initLocator {
117    my $self = shift;    my $self = shift;
118    my $name = shift;    my $name = shift;
# Line 169  sub initStorage { Line 181  sub initStorage {
181    my $self = shift;    my $self = shift;
182    my $name = shift;    my $name = shift;
183    
184      return if $self->existsStorage($name);
185    
186    my $locator = $self->getLocator($name);    my $locator = $self->getLocator($name);
187    $logger->info( __PACKAGE__ . " is initializing storage declared by locator \"$name\"" );    $logger->info( __PACKAGE__ . " is initializing storage declared by locator \"$name\"" );
188    
# Line 262  sub _dbErrorHandler { Line 276  sub _dbErrorHandler {
276  }  }
277    
278  1;  1;
279    __END__
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.10
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed