/[cvs]/nfo/perl/libs/Data/Transfer/Sync.pm
ViewVC logotype

Contents of /nfo/perl/libs/Data/Transfer/Sync.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.14 - (show annotations)
Sun Jan 19 03:25:54 2003 UTC (21 years, 5 months ago) by joko
Branch: MAIN
Changes since 1.13: +7 -3 lines
+ modified header

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

MailToCvsAdmin">MailToCvsAdmin
ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed