package
ValidatorPackagesTest1;
sub
match_single_validator_success_expected {
my
$val
=
shift
;
return
1;
}
sub
match_single_validator_failure_expected {
return
undef
;
}
sub
filter_single_filter_remove_whitespace {
my
$val
=
shift
;
$val
=~ s/^\s+//;
$val
=~ s/\s+$//;
return
$val
;
}
1;