Select Code to Download

# $value set to incoming parameter earlier
# $param object initialized earlier
...
    . "' contained invalid data." )
    unless(( defined $1 ) and ( $value eq $1 ));
$param->value( $1 );

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

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

    $_ = shift;