NAME
Syccess - Easy Validation Handler
VERSION
version 0.002
SYNOPSIS
use Syccess;
my $syccess = Syccess->new(
fields => [
foo => [ required => 1, length => 4, label => 'PIN Code' ],
bar => [ required => { message => 'You have 5 seconds to comply.' } ],
baz => [ length => { min => 2, max => 4 }, label => 'Ramba Zamba' ],
],
);
my $result = $syccess->validate( foo => 1, bar => 1 );
if ($result->success) {
print "Yeah!\n";
}
my $failed = $syccess->validate();
unless ($result->success) {
for my $message (@{$failed->errors}) {
print $message->message."\n";
}
}
DESCRIPTION
Syccess is developed for SyContent.
SUPPORT
IRC
Join #sycontent on irc.perl.org. Highlight Getty for fast reaction :).
Repository
http://github.com/SyContent/Syccess
Pull request and additional contributors are welcome
Issue Tracker
http://github.com/SyContent/Syccess/issues
AUTHOR
Torsten Raudssus <torsten@raudss.us>
COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Torsten Raudssus.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.