MV_VALID_STATE — (partly documented)
Interchange 5.9.0:
Source: lib/Vend/Order.pm
Line 1168 (context shows lines 1158-1172 in _state_province():1158)
sub _state_province { my($ref,$var,$val) = @_; my $error; if(length($val) != 2) { $error = 1; } else { my $pval = $::Variable->{MV_VALID_PROVINCE} ? " $::Variable->{MV_VALID_PROVINCE} " : $state_template{CA}; my $sval = $::Variable->{MV_VALID_STATE} ? " $::Variable->{MV_VALID_STATE} " : $state_template{US}; $error = 1 unless $sval =~ /\s$val\s/i or $pval =~ /\s$val\s/i ;
Source: lib/Vend/Order.pm
Line 1184 (context shows lines 1174-1188 in _state():1182)
if($error) { return (undef, $var, errmsg( "'%s' not a two-letter state or province code", $val ) ); } return (1, $var, ''); } sub _state { my($ref,$var,$val) = @_; my $sval = $::Variable->{MV_VALID_STATE} ? " $::Variable->{MV_VALID_STATE} " : $state_template{US}; if( $val =~ /\S/ and $sval =~ /\s$val\s/i ) {