--- nfo/perl/libs/Data/Transfer/Sync.pm	2003/02/09 04:56:03	1.16
+++ nfo/perl/libs/Data/Transfer/Sync.pm	2003/05/13 08:09:04	1.17
@@ -1,6 +1,6 @@
 ## -------------------------------------------------------------------------
 ##
-##  $Id: Sync.pm,v 1.16 2003/02/09 04:56:03 joko Exp $
+##  $Id: Sync.pm,v 1.17 2003/05/13 08:09:04 joko Exp $
 ##
 ##  Copyright (c) 2002, 2003  Andreas Motl <andreas.motl@ilo.de>
 ##
@@ -8,6 +8,10 @@
 ##
 ## -------------------------------------------------------------------------
 ##  $Log: Sync.pm,v $
+##  Revision 1.17  2003/05/13 08:09:04  joko
+##  new child-module "Map"
+##  added comments
+##
 ##  Revision 1.16  2003/02/09 04:56:03  joko
 ##  + modified header
 ##  + api versioning mechanism
@@ -24,6 +28,13 @@
 ## -------------------------------------------------------------------------
 
 
+# This module is a bootstrap container.
+# It doesn't contain any code, everything is loaded on (demand)/startup.
+# The magic behind that solves "Mix-in inheritance", implemented in Perl by 
+# Michael G Schwern. You won't find any usage of "mixin.pm" itself inside here,
+# since it is encapsulated behind DesignPattern::Bridge->load("{module}").
+# Please visit C<perldoc DesignPattern::Bridge>.
+
 package Data::Transfer::Sync;
 
 use strict;
@@ -33,24 +44,32 @@
 use base qw( DesignPattern::Bridge );
 
 
-# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main
-
 use Data::Dumper;
 
 # get logger instance
 my $logger = Log::Dispatch::Config->instance;
 
+
 sub constructor {
   my $self = shift;
+  
+  # debug point
   #print Dumper($self);
   #exit;
   $logger->debug( __PACKAGE__ . "->constructor" );
+  
+  # Load "plugin" modules.
   $self->load('Core');
   $self->load('Metadata');
   $self->load('API', { method => 'api_constructor' } );
   $self->load('StorageInterface');
   $self->load('Compare::Checksum');
+  # new of 2003-05-12: Split topic from Metadata module.
+  $self->load('Map');
+  
+  # Propagate all arguments.
   $self->configure(@_);
 }
 
 1;
+__END__