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	## $Id: Sync.pm,v 1.11 2002/12/23 07:10:59 joko Exp $
2	##
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	## $Log: Sync.pm,v $
9	## ----------------------------------------------------------------------------------------
10
11
12	package Data::Transfer::Sync;
13
14	use strict;
15	use warnings;
16
17	use base qw( DesignPattern::Object );
18	use base qw( DesignPattern::Bridge );
19
20
21	# ===================================== main
22
23	# get logger instance
24	my $logger = Log::Dispatch::Config->instance;
25
26	sub _init {
27	my $self = shift;
28	$logger->debug( __PACKAGE__ . "->new" );
29	$self->load('Core');
30	$self->load('API');
31	$self->configure(@_);
32	}
33
34	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26