lib/Blog/Validator.pm

   1 package Blog::Validator;
   2
   3 use strict;
   4
   5 sub new {
   6     my ( $class, $params ) = @_;
   7
   8     my $self = bless { params => $params, fields => {}, errors => {} }, $class;
   9
  10     $self->init_fields();
  11
  12     return $self;
  13 }
  14
  15 sub init_fields { }
  16
  17 sub add_fields {
  18     my $self = shift;
  19
  20     $self->{ fields } ||= {};
  21
  22     $self->{ fields } = { %{ $self->{ fields } }, @_ };
  23 }
  24
  25 sub error {
  26     my ( $self, $field, $error ) = @_;
  27
  28     return unless $field;
  29
  30     if ( $error ) {
  31         $self->{ errors }->{ $field } ||= [];
  32
  33         push @{ $self->{ errors }->{ $field } }, $error;
  34
  35         return;
  36     }
  37
  38     return $self->{ errors }->{ $field };
  39 }
  40
  41 sub errors {
  42     my ( $self ) = @_;
  43
  44     return $self->{ errors };
  45 }
  46
  47 sub is_valid {
  48     my ( $self ) = @_;
  49
  50     #use Data::Dumper;
  51
  52     #die Dumper($self->{ fields });
  53
  54     $self->clean_params();
  55
  56     FIELD:
  57     while ( my ( $field, $value ) = each %{ $self->{ fields } } ) {
  58         if ( !defined $self->param( $field ) || $self->param( $field ) eq '' ) {
  59             $self->error( $field, 'Required' ) if $value->{ required };
  60             next FIELD;
  61         }
  62
  63         RULE:
  64         while ( my ( $rule, $arg ) = each %$value ) {
  65             next RULE if $rule eq 'required';
  66             my $method = "check_$rule";
  67             if ( $self->can( $method ) ) {
  68                 $self->$method( $field, $arg );
  69             }
  70         }
  71     }
  72
  73     #die Dumper $self->errors;
  74
  75     return keys %{ $self->errors } ? 0 : 1;
  76 }
  77
  78 sub field {
  79     my ( $self, $name ) = @_;
  80
  81     return unless $name;
  82
  83     return $self->{ fields }->{ $name };
  84 }
  85
  86 sub param {
  87     my ( $self, $name ) = @_;
  88
  89     return unless $name;
  90
  91     return $self->{ params }->{ $name };
  92 }
  93
  94 sub params {
  95     my ( $self ) = @_;
  96
  97     return $self->{ params };
  98 }
  99
 100 sub clean_params {
 101     my ( $self ) = @_;
 102
 103     foreach my $param ( keys %{ $self->params } ) {
 104         delete $self->{ params }->{ $param }
 105           unless exists $self->{ fields }->{ $param };
 106     }
 107 }
 108
 109 sub check_re {
 110     my ( $self, $name, $re ) = @_;
 111
 112     $self->error( $name, 'Invalid input' )
 113       unless $self->param( $name ) =~ $re;
 114 }
 115
 116 sub check_email {
 117     my ( $self, $name, $email ) = @_;
 118
 119     $self->error( $name, 'Invalid email' )
 120       unless $self->param( $name ) =~ m/^([0-9a-zA-Z]([-.\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]?\.)+[a-zA-Z]{2,9})$/;
 121 }
 122
 123 sub check_in {
 124     my ( $self, $name, $in ) = @_;
 125
 126     $self->error( $name, 'Invalid input' )
 127       unless grep { $self->param( $name ) eq $_ } @$in;
 128 }
 129
 130 =head1 AUTHOR
 131
 132 vti
 133
 134 =head1 LICENSE
 135
 136 This library is free software, you can redistribute it and/or modify
 137 it under the same terms as Perl itself.
 138
 139 =cut
 140
 141 1;