Data/Transfer/Sync.pm

##    ------------------------------------------------------------------------
##
##    $Id: Sync.pm,v 1.13 2003/01/19 01:23:03 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.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('API');
  $self->configure(@_);
}

1;
1	joko	1.14	## ------------------------------------------------------------------------
2			##
3			## $Id: Sync.pm,v 1.13 2003/01/19 01:23:03 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.14	## Revision 1.13 2003/01/19 01:23:03 joko
12			## + new from Data/Transfer/Sync.pm
13			## ------------------------------------------------------------------------
14	joko	1.1
15
16			package Data::Transfer::Sync;
17
18			use strict;
19			use warnings;
20
21	joko	1.13	use base qw( DesignPattern::Object );
22			use base qw( DesignPattern::Bridge );
23	joko	1.7
24	joko	1.13
25			# ===================================== main
26	joko	1.1
27			# get logger instance
28			my $logger = Log::Dispatch::Config->instance;
29
30			sub _init {
31			my $self = shift;
32	joko	1.13	$logger->debug( __PACKAGE__ . "->new" );
33			$self->load('Core');
34			$self->load('API');
35			$self->configure(@_);
36	joko	1.7	}
37	joko	1.1
38			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26