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_base;
@ISA=qw(URL::URL_base);

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

        my $filename=$url->fullfile();
        return $filename;
}
Revision:	1.3
Committed:	Mon Aug 28 08:22:57 2000 UTC (24 years, 8 months ago) by williamc
Content type:	text/plain
Branch:	MAIN
CVS Tags:	v102p1, V1_0_1, V1_0_0, V1_pre0, SCRAM_V1, SCRAMV1_IMPORT, 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:	V1_pre1, SCRAM_V1_BRANCH, V0_19_4_B
Changes since 1.2:	+2 -2 lines
Log Message:	Imported from HPWbranch
#	Content
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	use URL::URL_base;
13	@ISA=qw(URL::URL_base);
14
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	}