view release on metacpan or  search on metacpan

lib/App/ErrorCalculator.pm  view on Meta::CPAN

	my $csv = $data->[1];
	my $cell = $csv->{cell};
	my @vars = $func->signature;
	my %vars = map {($_ => undef)} @vars;

	my %errors;
	
	foreach my $col (1..$csv->{maxcol}) {
		my $name = $cell->[$col][1];
		if ($name =~ /^([a-zA-Z]\w*)_(\d+)$/) {
			# looks like an error
			my $var = $1;
			my $id = $2;
			if (exists $vars{$var}) {
				$errors{$var}[$id] = $col;
			}
			next;
		}
		next if not exists $vars{$name};
		next if defined $vars{$name};
		$vars{$name} = $col;