Data/Transfer/Sync.pm

## -------------------------------------------------------------------------
##
##  $Id: Sync.pm,v 1.15 2003/01/20 16:58:07 joko Exp $
##
##  Copyright (c) 2002, 2003  Andreas Motl <andreas.motl@ilo.de>
##
##  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
##
##  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;

use strict;
use warnings;

use base qw( DesignPattern::Object );
use base qw( DesignPattern::Bridge );


# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main

use Data::Dumper;

# get logger instance
my $logger = Log::Dispatch::Config->instance;

sub constructor {
  my $self = shift;
  #print Dumper($self);
  #exit;
  $logger->debug( __PACKAGE__ . "->constructor" );
  $self->load('Core');
  $self->load('Metadata');
  $self->load('API', { method => 'api_constructor' } );
  $self->load('StorageInterface');
  $self->load('Compare::Checksum');
  $self->configure(@_);
}

1;
1	joko	1.16	## -------------------------------------------------------------------------
2	joko	1.14	##
3	joko	1.16	## $Id: Sync.pm,v 1.15 2003/01/20 16:58:07 joko Exp $
4	joko	1.1	##
5	joko	1.16	## Copyright (c) 2002, 2003 Andreas Motl <andreas.motl@ilo.de>
6	joko	1.1	##
7	joko	1.16	## This module is licensed under the same terms as Perl itself.
8	joko	1.1	##
9	joko	1.16	## -------------------------------------------------------------------------
10			## $Log: Sync.pm,v $
11			## Revision 1.15 2003/01/20 16:58:07 joko
12			## + loading new plugin-modules on startup: 'Metadata' and 'StorageInterface'
13			## both refactored from other - already established - plugin-modules
14	joko	1.15	##
15	joko	1.16	## Revision 1.14 2003/01/19 03:25:54 joko
16			## + modified header
17			##
18			## Revision 1.13 2003/01/19 01:23:03 joko
19			## + new from Data/Transfer/Sync.pm
20			## -------------------------------------------------------------------------
21	joko	1.1
22
23			package Data::Transfer::Sync;
24
25			use strict;
26			use warnings;
27
28	joko	1.13	use base qw( DesignPattern::Object );
29			use base qw( DesignPattern::Bridge );
30	joko	1.7
31	joko	1.13
32	joko	1.15	# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - main
33	joko	1.1
34	joko	1.16	use Data::Dumper;
35
36	joko	1.1	# get logger instance
37			my $logger = Log::Dispatch::Config->instance;
38
39	joko	1.16	sub constructor {
40	joko	1.1	my $self = shift;
41	joko	1.16	#print Dumper($self);
42			#exit;
43			$logger->debug( __PACKAGE__ . "->constructor" );
44	joko	1.13	$self->load('Core');
45	joko	1.15	$self->load('Metadata');
46	joko	1.16	$self->load('API', { method => 'api_constructor' } );
47	joko	1.15	$self->load('StorageInterface');
48	joko	1.16	$self->load('Compare::Checksum');
49	joko	1.13	$self->configure(@_);
50	joko	1.7	}
51	joko	1.1
52			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26