package Data::Validate::WithYAML::Plugin::NoSpam;
use warnings;
use strict;
use Carp;
# ABSTRACT: Plugin to check that a given text is no spam.
our $VERSION = 0.04;
sub check {
my ($class, $value) = @_;
croak "no value to check" unless defined $value;
if ( $value =~ /(?:\[url| or [url=""] tags in the text...
use Data::Validate::WithYAML::Plugin::NoSpam;
my $foo = Data::Validate::WithYAML::Plugin::NoSpam->check(
'This is a Spam-Link',
);
...
# use the plugin via Data::Validate::WithYAML
use Data::Validate::WithYAML;
my $text = 'This is a Spam-Link';
my $validator = Data::Validate::WithYAML->new( 'test.yml' );
print "yes" if $validator->check( 'textfield', $text );
test.yml
---
step1:
textfield:
plugin: NoSpam
type: required
=head1 SUBROUTINES
=head2 check
=head1 AUTHOR
Renee Baecker
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2012 by Renee Baecker.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut