No such thing as a small change | |
PerlMonks |
Re: Automatically creating data validation module from XSDby Zaxo (Archbishop) |
on Aug 10, 2007 at 04:19 UTC ( [id://631699]=note: print w/replies, xml ) | Need Help?? |
I think Tie::Constrained will do what you want. It will let you tie a scalar from your structure to some particular condition through a boolean coderef. An attempt to assign an invalid value (meaning it fails the condition) invokes a failure function which you can define for each type. Inheritance is the preferred way to specialize Tie::Constrained to a type. I've discussed and demonstrated Tie::Constrained in several pm articles: To Validate Data In Lvalue Subs, Tie Me Up, Tie Me Down, Re^2: Writing general code: real world example - and doubts! (reply to you!), and in the my Dog $spot; thread. Part of the problem of combining attributes automatically under Tie::Constrained can be handled by the trick I showed in FunkOpera: Abstracting Perl Operators (where did I get that silly name? . . .). The skeletal FunkOpera.pm shown there overloads operators to combine coderefs to return a coderef which combines their returns in the suitable way. Sorry, I've never done anything significant with xml, so I don't really understand what I can take as given in your problem. I think the base types would need to be hand encoded, but user-defined ones might be automated through some XML magic and an extension of the unfortunately named FunkOpera.pm. After Compline,
In Section
Seekers of Perl Wisdom
|
|