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