File Coverage

blib/lib/Data/RuledValidator/Plugin/Core.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package Data::RuledValidator::Plugin::Core;

use strict;
use warnings;
use Carp;
use Email::Valid ();

our $VERSION = '0.04';

Data::RuledValidator->add_condition_operator
  (
   'num'      => sub{my($self, $v) = @_; return $v =~/^\d+$/},
   'number'   => sub{my($self, $v) = @_; return $v =~/^\d+$/},
   'alpha'    => sub{my($self, $v) = @_; return $v =~/^[a-zA-Z]+$/},
   'alphanum' => sub{my($self, $v) = @_; return $v =~/^[a-zA-Z0-9]+$/},
   'word'     => sub{my($self, $v) = @_; return $v =~/^\w+$/},
   'words'    => sub{my($self, $v) = @_; return $v =~/^[\w\s]+$/},
   'any'      => sub{my($self, $v) = @_; return (defined $v and $v ne '')},
   'not_null' => sub{my($self, $v) = @_; return (defined $v and $v ne '')},
   'null'     => sub{my($self, $v) = @_; return (not defined $v or $v eq '')},
  );

1;
__END__