src/URL/URL_test.pm

#
# standard url interface for testing - creates an empty file
#
# Interface
# ---------
# new()                 :
# get(url, destination) :

package URL::URL_test;
require 5.001;
use File::Copy;
use URL::URL_interface;
@ISA=qw(URL::URL_interface);

sub get {
        my $self=shift;
        my $url=shift;
        my $location=shift;

        my $filename=$url->fullfile();
        return $filename;
}
Revision:	1.2
Committed:	Thu May 18 14:57:30 2000 UTC (24 years, 11 months ago) by williamc
Content type:	text/plain
Branch:	MAIN
CVS Tags:	ProtoEnd
Branch point for:	HPWbranch
Changes since 1.1:	+2 -2 lines
Log Message:	Update to minimum reqs
#	User	Rev	Content
1	williamc	1.1	#
2			# standard url interface for testing - creates an empty file
3			#
4			# Interface
5			# ---------
6			# new() :
7			# get(url, destination) :
8
9			package URL::URL_test;
10			require 5.001;
11			use File::Copy;
12	williamc	1.2	use URL::URL_interface;
13			@ISA=qw(URL::URL_interface);
14	williamc	1.1
15			sub get {
16			my $self=shift;
17			my $url=shift;
18			my $location=shift;
19
20			my $filename=$url->fullfile();
21			return $filename;
22			}