--- nfo/perl/libs/Data/Transfer/Sync.pm	2003/01/20 16:58:07	1.15
+++ nfo/perl/libs/Data/Transfer/Sync.pm	2003/02/09 04:56:03	1.16
@@ -1,22 +1,27 @@
-##    ------------------------------------------------------------------------
+## -------------------------------------------------------------------------
 ##
-##    $Id: Sync.pm,v 1.15 2003/01/20 16:58:07 joko Exp $
+##  $Id: Sync.pm,v 1.16 2003/02/09 04:56:03 joko Exp $
 ##
-##    Copyright (c) 2002  Andreas Motl <andreas.motl@ilo.de>
+##  Copyright (c) 2002, 2003  Andreas Motl <andreas.motl@ilo.de>
 ##
-##    See COPYRIGHT section in pod text below for usage and distribution rights.
+##  This module is licensed under the same terms as Perl itself.
 ##
-##    ------------------------------------------------------------------------
-##    $Log: Sync.pm,v $
-##    Revision 1.15  2003/01/20 16:58:07  joko
-##    + loading new plugin-modules on startup: 'Metadata' and 'StorageInterface' - both refactored from other - already established - plugin-modules
+## -------------------------------------------------------------------------
+##  $Log: Sync.pm,v $
+##  Revision 1.16  2003/02/09 04:56:03  joko
+##  + modified header
+##  + api versioning mechanism
 ##
-##    Revision 1.14  2003/01/19 03:25:54  joko
-##    + modified header
+##  Revision 1.15  2003/01/20 16:58:07  joko
+##  + loading new plugin-modules on startup: 'Metadata' and 'StorageInterface' 
+##     both refactored from other - already established - plugin-modules
 ##
-##    Revision 1.13  2003/01/19 01:23:03  joko
-##    + new from Data/Transfer/Sync.pm
-##    ------------------------------------------------------------------------
+##  Revision 1.14  2003/01/19 03:25:54  joko
+##  + modified header
+##
+##  Revision 1.13  2003/01/19 01:23:03  joko
+##  + new from Data/Transfer/Sync.pm
+## -------------------------------------------------------------------------
 
 
 package Data::Transfer::Sync;
@@ -30,16 +35,21 @@
 
 # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main
 
+use Data::Dumper;
+
 # get logger instance
 my $logger = Log::Dispatch::Config->instance;
 
-sub _init {
+sub constructor {
   my $self = shift;
-  $logger->debug( __PACKAGE__ . "->new" );
+  #print Dumper($self);
+  #exit;
+  $logger->debug( __PACKAGE__ . "->constructor" );
   $self->load('Core');
   $self->load('Metadata');
-  $self->load('API');
+  $self->load('API', { method => 'api_constructor' } );
   $self->load('StorageInterface');
+  $self->load('Compare::Checksum');
   $self->configure(@_);
 }