view release on metacpan or  search on metacpan

lib/JSprite.pm  view on Meta::CPAN

	{
		foreach my $i (@columns)
		{
			if (${$self->{types}}{$i} =~ /AUTO/o)
			{
				$errdetails = $i;
				return (-525);
			}
		}
	}
	#$single  = ($#columns) ? $columns[$[] : $column_string;
	$single  = ($#columns) ? $columns[$#columns] : $column_string;
	$rowcnt = 0;

	my (@these_results);
	my ($skipreformat) = 0;
	my ($colskipreformat) = 0;
	my (@types);
	my (@coltypes);
	@coltypes = ();
	for (my $i=0;$i<=$#columns;$i++)