MV_ZIP_REQUIRED —
Interchange 5.9.0:
Source: lib/Vend/Order.pm
Line 1234 (context shows lines 1224-1238 in _multizip():1224)
sub _multizip {
my($ref,$var,$val) = @_;
$val =~ s/^\s+//;
my $error;
my $cval = _get_cval($ref, $var);
if (my $sub = $zip_routine{$cval}) {
$sub->($val) or $error = 1;
}
elsif($::Variable->{MV_ZIP_REQUIRED}) {
" $::Variable->{MV_ZIP_REQUIRED} " =~ /\s$cval\s/
and
length($val) < 4 and $error = 1;
}