Data-Validate-CSV
view release on metacpan or search on metacpan
lib/Data/Validate/CSV/Column.pm view on Meta::CPAN
return $parameterized;
}
sub _coerce_numeric {
shift;
my ($value, $pattern, $decimal_char, $group_char) = @_;
$decimal_char //= '.';
$group_char //= ',';
$pattern =~ s/;+$//;
return 'NaN' if lc($value) eq 'nan';
return 'INF' if lc($value) eq 'inf';
return '-INF' if lc($value) eq '-inf';
my $regexp;
if (defined $pattern) {
my %numeric_pattern_char = (
'0' => '[0-9]+',
'#' => '[0-9]+',
'-' => quotemeta('-'),
'E' => '[Ee]',
( run in 0.245 second using v1.01-cache-2.11-cpan-4d50c553e7e )