/[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.16 by joko, Sun Feb 9 04:56:03 2003 UTC
# Line 1  Line 1 
1  ##    $Id$  ## -------------------------------------------------------------------------
2  ##  ##
3  ##    Copyright (c) 2002  Andreas Motl <andreas.motl@ilo.de>  ##  $Id$
4  ##  ##
5  ##    See COPYRIGHT section in pod text below for usage and distribution rights.  ##  Copyright (c) 2002, 2003  Andreas Motl <andreas.motl@ilo.de>
6  ##  ##
7  ##    ----------------------------------------------------------------------------------------  ##  This module is licensed under the same terms as Perl itself.
 ##    $Log$  
 ##    Revision 1.13  2003/01/19 01:23:03  joko  
 ##    + new from Data/Transfer/Sync.pm  
8  ##  ##
9  ##    ----------------------------------------------------------------------------------------  ## -------------------------------------------------------------------------
10    ##  $Log$
11    ##  Revision 1.16  2003/02/09 04:56:03  joko
12    ##  + modified header
13    ##  + api versioning mechanism
14    ##
15    ##  Revision 1.15  2003/01/20 16:58:07  joko
16    ##  + loading new plugin-modules on startup: 'Metadata' and 'StorageInterface'
17    ##     both refactored from other - already established - plugin-modules
18    ##
19    ##  Revision 1.14  2003/01/19 03:25:54  joko
20    ##  + modified header
21    ##
22    ##  Revision 1.13  2003/01/19 01:23:03  joko
23    ##  + new from Data/Transfer/Sync.pm
24    ## -------------------------------------------------------------------------
25    
26    
27  package Data::Transfer::Sync;  package Data::Transfer::Sync;
# Line 21  use base qw( DesignPattern::Object ); Line 33  use base qw( DesignPattern::Object );
33  use base qw( DesignPattern::Bridge );  use base qw( DesignPattern::Bridge );
34    
35    
36  # =====================================   main  # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main
37    
38    use Data::Dumper;
39    
40  # get logger instance  # get logger instance
41  my $logger = Log::Dispatch::Config->instance;  my $logger = Log::Dispatch::Config->instance;
42    
43  sub _init {  sub constructor {
44    my $self = shift;    my $self = shift;
45    $logger->debug( __PACKAGE__ . "->new" );    #print Dumper($self);
46      #exit;
47      $logger->debug( __PACKAGE__ . "->constructor" );
48    $self->load('Core');    $self->load('Core');
49    $self->load('API');    $self->load('Metadata');
50      $self->load('API', { method => 'api_constructor' } );
51      $self->load('StorageInterface');
52      $self->load('Compare::Checksum');
53    $self->configure(@_);    $self->configure(@_);
54  }  }
55    
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.16
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed