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.001;

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.4
Committed:	Mon Aug 28 08:22:57 2000 UTC (24 years, 8 months ago) by williamc
Content type:	text/plain
Branch:	MAIN
CVS Tags:	V0_19_7, V0_19_6, V0_19_6p1, V0_19_5, SFATEST, V0_19_4, V0_19_4_pre3, V0_19_4_pre2, V0_19_4_pre1, V0_19_3, V0_19_2, V0_19_1, V0_19_0, V0_18_5, V0_18_4, V_18_3_TEST, VO_18_3, V0_18_2, V0_18_1
Branch point for:	V0_19_4_B
Changes since 1.3:	+9 -0 lines
Log Message:	Imported from HPWbranch
#	Content
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	# init() : Override
9
10	package URL::URL_base;
11	use URL::URLclass;
12	require 5.001;
13
14	sub new {
15	my $class=shift;
16	$self={};
17	bless $self, $class;
18	$self->init();
19	return $self;
20	}
21
22	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	# ----- Dummy interface routines
32	sub init {
33	# Dummy - override as reqd
34	}