Description: |
This is an OO module for 'validating' hashes.
I could post the module code here, but then you'd not get the examples, and such.
The tarball is located
Here, and is standard CPAN-ish. In fact, I am thinking of submitting it to CPAN. |
Example:
use Validate::Hash;
my $vh = new Validate::Hash(
required => ['Fred', 'Wilma'],
optional => ['Barney', 'Betty'],
verify => {Barney => qr/\d+/,
Fred => qr/\w+/},
-errs => {illegal => "#KEY# is illegal",
required => "#KEY# is required!",
notmatch =>
"the value #KEY#, #VALUE#, doesn't match /#PATTER
+N#/",
-strict => 1,
);
my %hash = (Fred => 'A', Barney => 1);
$vh->valid(\%hash); # returns false,
$vh->get_error(); # returns 'Wilma is required!'
From the README:
/*************** README ***************\
| ValidateHash v1.4 |
\**************************************/
***** Summary
This module provides Object-Oriented way to validate the contents of a hash.
It should be useful for CGI-ish forms or for validating the arguments of functions.
Whatever floats your boat.
To install, just:
% perl Makefile.PL
% make
% make install
Validate::Hash is documented by its own POD. I suggest you read it by typing:
% perldoc Validate::Hash
***** Copyright:
This perl module is Copyright (c) 2002 Dylan William Hardison. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
***** BUGS:
None known. If you find a bug, please email me with the details, or better yet, a patch,
and I'll see to it that it is fixed ASAP.
|