Data/Transfer/Sync.pm

##    $Id: Sync.pm,v 1.11 2002/12/23 07:10:59 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 $
##    ----------------------------------------------------------------------------------------


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('API');
  $self->configure(@_);
}

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