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;
}

# ----- Dummy interface routines
sub init {
        # Dummy - override as reqd
        }
Revision:	1.3
Committed:	Fri Nov 12 17:24:55 1999 UTC (25 years, 6 months ago) by williamc
Content type:	text/plain
Branch:	MAIN
CVS Tags:	ProtoEnd
Branch point for:	HPWbranch
Changes since 1.2:	+2 -34 lines
Log Message:	Modified interface
#	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	williamc	1.1	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			# ----- Dummy interface routines
23			sub init {
24			# Dummy - override as reqd
25			}