# $value set to incoming parameter earlier
# $param object initialized earlier
my $valex = $param->valex;
$value =~ /($valex)/;
$param->errors( "Parameter '" . $param->name
    . "' contained invalid data." )
    unless(( defined $1 ) and ( $value eq $1 ));
$param->value( $1 );

##</code><code>##

is( $valop->value( 'bart' ), 123, 'foo123abc validated correctly' );

##</code><code>##

    $_ = shift || $self->validator;

##</code><code>##

    $_ = shift;