加藤敦 > Data-RuledValidator-0.13 > Data::RuledValidator::Filter

Download:
Data-RuledValidator-0.13.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  1
Open  0
View/Report Bugs
Module Version: 0.02   Source  

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

syntax highlighting: