Update of /cvsroot/fink/fink/perlmod/Fink/SelfUpdate
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv17422/SelfUpdate
Modified Files:
Tag: selfupdate_classes
CVS.pm point.pm rsync.pm tarball.pm
Added Files:
Tag: selfupdate_classes
Base.pm
Log Message:
Switch to using Fink::SelfUpdate::Base as base class for method
sub-classes (distinguish vs older SelfUpdate.pm functions package).
--- NEW FILE: Base.pm ---
# -*- mode: Perl; tab-width: 4; -*-
#
# Fink::SelfUpdate::Base class
#
# Fink - a package manager that downloads source and installs it
# Copyright (c) 2007 The Fink Package Manager Team
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
#
package Fink::SelfUpdate::Base;
use strict;
use warnings;
=head1 NAME
Fink::SelfUpdate::Base - base class for selfupdate-method classes
=head1 DESCRIPTION
Each method of selfupdating will soon be encapsulated in a
Fink::SelfUpdate::$method class, which are subclasses of the
Fink::SelfUpdate::Base class. There are stub methods for the public
interface calls, so a $method class only needs to override as needed.
All calls are class methods at this time.
=over 4
=item clear_metadata
Fink::SelfUpdate::$method->clear_metadata();
Remove all metadata files and other structures related to this
selfupdate class (example: CVS/ directories).
=cut
sub clear_metadata {}
=item stamp_set
Fink::SelfUpdate::$method->stamp_set();
=item stamp_clear
Fink::SelfUpdate::$method->stamp_clear();
=item stamp_check
my $boolean = Fink::SelfUpdate::$method->stamp_check();
Create, remove, or check presence of stamp file for this selfupdate
class. I don't know what these are for.
=cut
sub stamp_set {}
sub stamp_clear {}
sub stamp_check { return 0; }
=back
=cut
### EOF
1;
# vim: ts=4 sw=4 noet
Index: tarball.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/SelfUpdate/Attic/tarball.pm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -d -r1.1.2.1 -r1.1.2.2
--- tarball.pm 6 Mar 2007 17:34:05 -0000 1.1.2.1
+++ tarball.pm 6 Mar 2007 20:02:28 -0000 1.1.2.2
@@ -24,7 +24,7 @@
package Fink::SelfUpdate::tarball;
-use base qw(Fink::SelfUpdate);
+use base qw(Fink::SelfUpdate::Base);
use strict;
use warnings;
Index: point.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/SelfUpdate/Attic/point.pm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -d -r1.1.2.1 -r1.1.2.2
--- point.pm 6 Mar 2007 17:34:05 -0000 1.1.2.1
+++ point.pm 6 Mar 2007 20:02:28 -0000 1.1.2.2
@@ -24,7 +24,7 @@
package Fink::SelfUpdate::point;
-use base qw(Fink::SelfUpdate);
+use base qw(Fink::SelfUpdate::Base);
use strict;
use warnings;
Index: rsync.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/SelfUpdate/Attic/rsync.pm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -d -r1.1.2.1 -r1.1.2.2
--- rsync.pm 6 Mar 2007 17:34:05 -0000 1.1.2.1
+++ rsync.pm 6 Mar 2007 20:02:28 -0000 1.1.2.2
@@ -24,7 +24,7 @@
package Fink::SelfUpdate::rsync;
-use base qw(Fink::SelfUpdate);
+use base qw(Fink::SelfUpdate::Base);
use Fink::Config qw($basepath);
use Fink::Command qw(rm_f);
Index: CVS.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/SelfUpdate/Attic/CVS.pm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -d -r1.1.2.1 -r1.1.2.2
--- CVS.pm 6 Mar 2007 17:34:05 -0000 1.1.2.1
+++ CVS.pm 6 Mar 2007 20:02:28 -0000 1.1.2.2
@@ -24,7 +24,7 @@
package Fink::SelfUpdate::CVS;
-use base qw(Fink::SelfUpdate);
+use base qw(Fink::SelfUpdate::Base);
use Fink::Services qw(&execute);
use Fink::Config qw($basepath);
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/fink-commits
