[interchange-cvs] interchange - heins modified lib/Vend/Data.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Sat Aug 9 12:14:00 EDT 2003


User:      heins
Date:      2003-08-09 15:14:11 GMT
Modified:  lib/Vend Data.pm
Log:
* Remove extraneous POD entries.

Revision  Changes    Path
2.30      +1 -34     interchange/lib/Vend/Data.pm


rev 2.30, prev_rev 2.29
Index: Data.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Data.pm,v
retrieving revision 2.29
retrieving revision 2.30
diff -u -r2.29 -r2.30
--- Data.pm	25 Jun 2003 16:38:17 -0000	2.29
+++ Data.pm	9 Aug 2003 15:14:11 -0000	2.30
@@ -1,6 +1,6 @@
 # Vend::Data - Interchange databases
 #
-# $Id: Data.pm,v 2.29 2003/06/25 16:38:17 mheins Exp $
+# $Id: Data.pm,v 2.30 2003/08/09 15:14:11 mheins Exp $
 # 
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -570,14 +570,6 @@
 	return;
 }
 
-=head1 auto_delimiter
-
-This routine finds the delimiter type automatically, given the text file
-name. Below is a test of it -- run the code from the definition of %Delimiter to
-end of the =cut below the routine.
-
-=cut
-
 sub auto_delimiter {
 	my ($fn) = @_;
 	my $fdelim = "\t";
@@ -618,31 +610,6 @@
 	}
 	return ($fdelim, $rdelim);
 }
-
-=head2 Test code 
-
-	my @test = qw(
-					/cc/products/products.txt
-					/cc/products/NextDayAir.csv
-					/tmp/products.pipe
-					/tmp/products.line
-					/tmp/products.pct
-				);	
-	my %map = (
-		"\t" => '\t',
-		"\n" => '\n',
-		"\n\n" => '\n\n',
-	);
-
-	for(@test) {
-		my $file = $_;
-		my ($f, $r) = auto_delimiter($file);
-		my $fs = $map{$f} || $f;
-		my $rs = $map{$r} || $r;
-		print "$file: f=$fs r=$rs\n";
-	}
-
-=cut
 
 use vars '%db_config';
 







More information about the interchange-cvs mailing list