src/URL/URL_base.pm

#
# standard url interface - dummy implementation
#
# Interface
# ---------
# new()                 : new object - calls init ->override init
# get(url, destination) : Override
# init()                : Override

package URL::URL_base;
use URL::URLclass;
require 5.004;

sub new {
        my $class=shift;
        $self={};
        bless $self, $class;
        $self->init();
        return $self;
}

sub error {
        my $self=shift;

        if ( @_ ) {
          $self->{errorstring}=$self->{errorstring}."\n".shift;
        }
        return (defined $self->{errorstring})?$self->{errorstring}:undef;
}

# ----- Dummy interface routines
sub init {
        # Dummy - override as reqd
        }
Revision:	1.7
Committed:	Wed Feb 15 18:08:06 2006 UTC (19 years, 2 months ago) by sashby
Content type:	text/plain
Branch:	MAIN
CVS Tags:	V1_2_1b, V1_2_1a, V1_2_3, V1_2_2, V1_2_2_relcand2, V1_2_1, V1_2_0, V1_2_0-cand11, V1_1_7, V1_1_6, V1_2_0-cand10, V1_1_5, V1_2_0-cand9, V1_2_0-cand8, V1_2_0-cand7, V1_2_0-cand6, V1_2_0-cand5, V1_2_0-cand4, V1_2_0-cand3, V1_2_0-cand2, V1_2_0-cand1, V1_1_4, V1_1_3, V1_1_2, V1_1_0_reltag8, V1_1_0_reltag7, V1_1_0_reltag6, V1_1_1, V1_1_0_reltag5, V1_1_0_reltag4, V1_1_0_reltag3, V1_1_0_reltag2, V1_1_0_reltag1, V1_1_0_reltag, V1_0_3-p4, V1_1_0_cand3, V1_1_0_cand2, V1_1_0_cand1, HEAD_SM_071214, forV1_1_0, v103_xml_071106, V1_0_3-p3, V1_0_3-p2, V1_1_0, v110p1, V110p6, V110p5, V110p4, V110p3, before110xmlBRmerge, V110p2, V110p1, V1_0_3-p1, V1_0_3
Branch point for:	forBinLess_SCRAM, HEAD_BRANCH_SM_071214, v200branch, v103_with_xml
Changes since 1.6:	+1 -1 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	williamc	1.1	#
2			# standard url interface - dummy implementation
3			#
4			# Interface
5			# ---------
6			# new() : new object - calls init ->override init
7			# get(url, destination) : Override
8	williamc	1.3	# init() : Override
9	williamc	1.1
10	williamc	1.2	package URL::URL_base;
11	williamc	1.3	use URL::URLclass;
12	sashby	1.7	require 5.004;
13	williamc	1.1
14			sub new {
15			my $class=shift;
16			$self={};
17			bless $self, $class;
18			$self->init();
19			return $self;
20			}
21
22	williamc	1.4	sub error {
23			my $self=shift;
24
25			if ( @_ ) {
26			$self->{errorstring}=$self->{errorstring}."\n".shift;
27			}
28			return (defined $self->{errorstring})?$self->{errorstring}:undef;
29			}
30
31	williamc	1.1	# ----- Dummy interface routines
32			sub init {
33			# Dummy - override as reqd
34			}