Data/Transfer/Sync.pm

##    ------------------------------------------------------------------------
##
##    $Id: Sync.pm,v 1.14 2003/01/19 03:25:54 joko Exp $
##
##    Copyright (c) 2002  Andreas Motl <andreas.motl@ilo.de>
##
##    See COPYRIGHT section in pod text below for usage and distribution rights.
##
##    ------------------------------------------------------------------------
##    $Log: Sync.pm,v $
##    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

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

sub _init {
  my $self = shift;
  $logger->debug( __PACKAGE__ . "->new" );
  $self->load('Core');
  $self->load('Metadata');
  $self->load('API');
  $self->load('StorageInterface');
  $self->configure(@_);
}

1;
1	joko	1.14	## ------------------------------------------------------------------------
2			##
3	joko	1.15	## $Id: Sync.pm,v 1.14 2003/01/19 03:25:54 joko Exp $
4	joko	1.1	##
5			## Copyright (c) 2002 Andreas Motl <andreas.motl@ilo.de>
6			##
7			## See COPYRIGHT section in pod text below for usage and distribution rights.
8			##
9	joko	1.14	## ------------------------------------------------------------------------
10	joko	1.2	## $Log: Sync.pm,v $
11	joko	1.15	## Revision 1.14 2003/01/19 03:25:54 joko
12			## + modified header
13			##
14	joko	1.14	## Revision 1.13 2003/01/19 01:23:03 joko
15			## + new from Data/Transfer/Sync.pm
16			## ------------------------------------------------------------------------
17	joko	1.1
18
19			package Data::Transfer::Sync;
20
21			use strict;
22			use warnings;
23
24	joko	1.13	use base qw( DesignPattern::Object );
25			use base qw( DesignPattern::Bridge );
26	joko	1.7
27	joko	1.13
28	joko	1.15	# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - main
29	joko	1.1
30			# get logger instance
31			my $logger = Log::Dispatch::Config->instance;
32
33			sub _init {
34			my $self = shift;
35	joko	1.13	$logger->debug( __PACKAGE__ . "->new" );
36			$self->load('Core');
37	joko	1.15	$self->load('Metadata');
38	joko	1.13	$self->load('API');
39	joko	1.15	$self->load('StorageInterface');
40	joko	1.13	$self->configure(@_);
41	joko	1.7	}
42	joko	1.1
43			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26