/[cvs]/nfo/perl/libs/Data/Transfer/Sync.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Transfer/Sync.pm

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

revision 1.13 by joko, Sun Jan 19 01:23:03 2003 UTC revision 1.15 by joko, Mon Jan 20 16:58:07 2003 UTC
# Line 1  Line 1 
1    ##    ------------------------------------------------------------------------
2    ##
3  ##    $Id$  ##    $Id$
4  ##  ##
5  ##    Copyright (c) 2002  Andreas Motl <andreas.motl@ilo.de>  ##    Copyright (c) 2002  Andreas Motl <andreas.motl@ilo.de>
6  ##  ##
7  ##    See COPYRIGHT section in pod text below for usage and distribution rights.  ##    See COPYRIGHT section in pod text below for usage and distribution rights.
8  ##  ##
9  ##    ----------------------------------------------------------------------------------------  ##    ------------------------------------------------------------------------
10  ##    $Log$  ##    $Log$
11    ##    Revision 1.15  2003/01/20 16:58:07  joko
12    ##    + loading new plugin-modules on startup: 'Metadata' and 'StorageInterface' - both refactored from other - already established - plugin-modules
13    ##
14    ##    Revision 1.14  2003/01/19 03:25:54  joko
15    ##    + modified header
16    ##
17  ##    Revision 1.13  2003/01/19 01:23:03  joko  ##    Revision 1.13  2003/01/19 01:23:03  joko
18  ##    + new from Data/Transfer/Sync.pm  ##    + new from Data/Transfer/Sync.pm
19  ##  ##    ------------------------------------------------------------------------
 ##    ----------------------------------------------------------------------------------------  
20    
21    
22  package Data::Transfer::Sync;  package Data::Transfer::Sync;
# Line 21  use base qw( DesignPattern::Object ); Line 28  use base qw( DesignPattern::Object );
28  use base qw( DesignPattern::Bridge );  use base qw( DesignPattern::Bridge );
29    
30    
31  # =====================================   main  # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main
32    
33  # get logger instance  # get logger instance
34  my $logger = Log::Dispatch::Config->instance;  my $logger = Log::Dispatch::Config->instance;
# Line 30  sub _init { Line 37  sub _init {
37    my $self = shift;    my $self = shift;
38    $logger->debug( __PACKAGE__ . "->new" );    $logger->debug( __PACKAGE__ . "->new" );
39    $self->load('Core');    $self->load('Core');
40      $self->load('Metadata');
41    $self->load('API');    $self->load('API');
42      $self->load('StorageInterface');
43    $self->configure(@_);    $self->configure(@_);
44  }  }
45    
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.15
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed