src/URL/URL_test.pm

BEGIN
   {
   print "URL::URL_test: I AM used!!","\n";
   };

#
# 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.4
Committed:	Wed Aug 17 11:17:51 2005 UTC (19 years, 8 months ago) by sashby
Content type:	text/plain
Branch:	MAIN
CVS Tags:	V1_0_3-p4, forV1_1_0, v103_xml_071106, V1_0_3-p3, V1_0_3-p2, before110xmlBRmerge, V110p2, V110p1, V1_0_4p1, V1_0_3-p1, V1_0_3, V1_0_2, V1_0_2_p1
Branch point for:	v103_with_xml, v103_branch
Changes since 1.3:	+5 -0 lines
Log Message:	* empty log message *
#	Content
1	BEGIN
2	{
3	print "URL::URL_test: I AM used!!","\n";
4	};
5
6	#
7	# standard url interface for testing - creates an empty file
8	#
9	# Interface
10	# ---------
11	# new() :
12	# get(url, destination) :
13
14	package URL::URL_test;
15	require 5.001;
16	use File::Copy;
17	use URL::URL_base;
18	@ISA=qw(URL::URL_base);
19
20	sub get {
21	my $self=shift;
22	my $url=shift;
23	my $location=shift;
24
25	my $filename=$url->fullfile();
26	return $filename;
27	}