Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

JJNAPIORK / Valiant-0.001001 / lib / Valiant / Validator / Inclusion.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
—
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131

              
package Valiant::Validator::Inclusion;
use Moo;
use Valiant::I18N;
with 'Valiant::Validator::Each';
has in => (is=>'ro', required=>1);
has inclusion => (is=>'ro', required=>1, default=>sub {_t 'inclusion'});
sub normalize_shortcut {
  my ($class, $arg) = @_;
  return +{ in=>$arg };
}
sub validate_each {
  my ($self, $record, $attribute, $value, $options) = @_;
  my $in = $self->in;
  my @in = ();
  if(ref($in) eq 'CODE') {
    @in = $in->($record);
  } else {
    @in = @$in;
  }
  my %opts = (%{$self->options}, list=>\@in, %{$options||+{}});
  unless(grep { $_ eq $value } @in) {
    $record->errors->add($attribute, $self->inclusion, \%opts)
  }
}
1;
=head1 TITLE
Valiant::Validator::Inclusion - Value must be one of a list
=head1 SYNOPSIS
    package Local::Test::Inclusion;
    use Moo;
    use Valiant::Validations;
    has status => (is=>'ro');
    has type => (is=>'ro');
    validates status => (
      inclusion => +{
        in => [qw/active retired/],
      },
    );
    validates type => (
      inclusion => +{
        in => \&available_types,
      },
    );
    sub available_types {
      my $self = shift;
      return (qw(student instructor));
    }
    my $object = Local::Test::Inclusion->new(
      status => 'running',
      type => 'janitor',
    );
    $object->validate;
    warn $object->errors->_dump;
    $VAR1 = {
      'status' => [
                    'Status is not in the list'
                  ],
      'type' => [
                  'Type is not in the list'
                ],
    };
=head1 DESCRIPTION
Value must be one of a list.  This list can be given as an arrayref or
as a reference to a method (for when you need to dynamically build the list).
=head1 SHORTCUT FORM
This validator supports the follow shortcut forms:
    validates attribute => ( inclusion => [qw/a b c/], ... );
Which is the same as:
    validates attribute => (
      inclusion => +{
        in => [qw/a b c/],
      },
    );
This also works for the coderef form:
    validates attribute => ( inclusion => \&coderef, ... );
    validates attribute => (
      inclusion => +{
        in => \&coderef,
      },
    );
=head1 GLOBAL PARAMETERS
This validator supports all the standard shared parameters: C<if>, C<unless>,
C<message>, C<strict>, C<allow_undef>, C<allow_blank>.
=head1 SEE ALSO
  
L<Valiant>, L<Valiant::Validator>, L<Valiant::Validator::Each>.
=head1 AUTHOR
  
See L<Valiant>  
     
=head1 COPYRIGHT & LICENSE
  
See L<Valiant>
=cut