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.5
Committed:	Wed Jan 21 14:18:23 2004 UTC (21 years, 3 months ago) by sashby
Content type:	text/plain
Branch:	MAIN
Branch point for:	SCRAM_V1_BRANCH
Changes since 1.4:	+4 -0 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	williamc	1.1	#
2			# standard url interface - dummy implementation
3			#
4	sashby	1.5	#
5			#
6			#
7			#
8	williamc	1.1	# Interface
9			# ---------
10			# new() : new object - calls init ->override init
11			# get(url, destination) : Override
12	williamc	1.3	# init() : Override
13	williamc	1.1
14	williamc	1.2	package URL::URL_base;
15	williamc	1.3	use URL::URLclass;
16	williamc	1.1	require 5.001;
17
18			sub new {
19			my $class=shift;
20			$self={};
21			bless $self, $class;
22			$self->init();
23			return $self;
24			}
25
26	williamc	1.4	sub error {
27			my $self=shift;
28
29			if ( @_ ) {
30			$self->{errorstring}=$self->{errorstring}."\n".shift;
31			}
32			return (defined $self->{errorstring})?$self->{errorstring}:undef;
33			}
34
35	williamc	1.1	# ----- Dummy interface routines
36			sub init {
37			# Dummy - override as reqd
38			}