Name

Data::RuledValidator::Filter - filters

lc

It makes values lower character.

            

              
              
   'Character'
-> 'character'
            
          

uc

It makes values upper character.

            

              
              
   'Character'
-> 'CHARACTER'
            
          

trim

It remove white space in front and back.

            

              
              
   '  hoge  '
-> 'hoge'
            
          

no_dash

It remove dash included in values.

            

              
              
   '000-000-000'
-> '000000000'
            
          

no_filter

It does nothing. return given value as is.

            

              
              
   '000-000-000'
-> '000-000-000'
            
          

How to create Filter?

            

              
              
package Data::RuledValidator::Filter::XXX;
sub filter_xxx{
  my($self, $v, $drv, $values) = @_;
  # do something
  return $$v;
}
1;
            
          

$drv is Data::RuledValidator object. So, you can write like as following filter.

            

              
              
package Data::RuledValidator::Filter;
sub birth_year_check{
  my($self, $v, $drv, $values) = @_;
  my($q, $method) = ($drv->obj, $drv->method);
  my($year) = $q->$method('birth_year');
  my $r = $q->$method(birth_year_is_1777 => $year == 1777);
  return $$v = $r;
}
            
          

And write the following rule.

            

              
              
birth_year_is_1777 eq 1 with birth_year_check
            
          

Author

Ktat, <ktat@cpan.org>

Copyright

Copyright 2006-2007 by Ktat

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html