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.7
Committed:	Fri Jan 14 17:36:43 2011 UTC (14 years, 3 months ago) by muzaffar
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.6:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	merged SCRAM_V2 branch in to head
#	User	Rev	Content
1	sashby	1.4	BEGIN
2			{
3			print "URL::URL_test: I AM used!!","\n";
4			};
5
6	williamc	1.1	#
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	williamc	1.3	use URL::URL_base;
18			@ISA=qw(URL::URL_base);
19	williamc	1.1
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			}