/[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.17 by joko, Tue May 13 08:09:04 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.17  2003/05/13 08:09:04  joko
12    ##  new child-module "Map"
13    ##  added comments
14    ##
15    ##  Revision 1.16  2003/02/09 04:56:03  joko
16    ##  + modified header
17    ##  + api versioning mechanism
18    ##
19    ##  Revision 1.15  2003/01/20 16:58:07  joko
20    ##  + loading new plugin-modules on startup: 'Metadata' and 'StorageInterface'
21    ##     both refactored from other - already established - plugin-modules
22    ##
23    ##  Revision 1.14  2003/01/19 03:25:54  joko
24    ##  + modified header
25    ##
26    ##  Revision 1.13  2003/01/19 01:23:03  joko
27    ##  + new from Data/Transfer/Sync.pm
28    ## -------------------------------------------------------------------------
29    
30    
31    # This module is a bootstrap container.
32    # It doesn't contain any code, everything is loaded on (demand)/startup.
33    # The magic behind that solves "Mix-in inheritance", implemented in Perl by
34    # Michael G Schwern. You won't find any usage of "mixin.pm" itself inside here,
35    # since it is encapsulated behind DesignPattern::Bridge->load("{module}").
36    # Please visit C<perldoc DesignPattern::Bridge>.
37    
38  package Data::Transfer::Sync;  package Data::Transfer::Sync;
39    
# Line 21  use base qw( DesignPattern::Object ); Line 44  use base qw( DesignPattern::Object );
44  use base qw( DesignPattern::Bridge );  use base qw( DesignPattern::Bridge );
45    
46    
47  # =====================================   main  use Data::Dumper;
48    
49  # get logger instance  # get logger instance
50  my $logger = Log::Dispatch::Config->instance;  my $logger = Log::Dispatch::Config->instance;
51    
52  sub _init {  
53    sub constructor {
54    my $self = shift;    my $self = shift;
55    $logger->debug( __PACKAGE__ . "->new" );    
56      # debug point
57      #print Dumper($self);
58      #exit;
59      $logger->debug( __PACKAGE__ . "->constructor" );
60      
61      # Load "plugin" modules.
62    $self->load('Core');    $self->load('Core');
63    $self->load('API');    $self->load('Metadata');
64      $self->load('API', { method => 'api_constructor' } );
65      $self->load('StorageInterface');
66      $self->load('Compare::Checksum');
67      # new of 2003-05-12: Split topic from Metadata module.
68      $self->load('Map');
69      
70      # Propagate all arguments.
71    $self->configure(@_);    $self->configure(@_);
72  }  }
73    
74  1;  1;
75    __END__
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.17
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed