From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

JJNAPIORK / Valiant-0.002016 / lib / Valiant / Validator / Confirmation.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

              
package Valiant::Validator::Confirmation;
use Moo;
use Valiant::I18N;
use Valiant::Util 'throw_exception', 'debug';
with 'Valiant::Validator::Each';
has confirmation => (is=>'ro', required=>1, default=>sub {_t 'confirmation'});
has suffix => (is=>'ro', required=>1, default=>'_confirmation');
sub BUILD {
  my ($self, $args) = @_;
  my $model_class = $self->model_class;
  foreach my $attribute (@{$self->attributes||[]}) {
    my $confirmation_attribute = "${attribute}${\$self->suffix}";
    next if $model_class->can($confirmation_attribute);
    $model_class->inject_attribute($confirmation_attribute);
  }
}
sub normalize_shortcut {
  my ($class, $arg) = @_;
  if($arg eq '1') {
    return +{};
  } else {
    return +{ suffix=>$arg };
  }
}
sub validate_each {
  my ($self, $record, $attribute, $value, $opts) = @_;
  my $confirmation_attribute = "${attribute}${\$self->suffix}";
  my $confirmation = $record->can($confirmation_attribute) ||
    throw_exception MissingMethod => (object=>$record, method=>$confirmation_attribute);
  my $confirmation_value = $confirmation->($record);
  # If confirmation is not defined then skip this validation.   If the user wants to have
  # this defined they can use the presence validator.
  return unless defined($confirmation_value) || defined($value);
  if( ($value||'') ne ($confirmation_value||'')) {
    my $human_attribute_name = $record->human_attribute_name($attribute);
    $record->errors->add($confirmation_attribute, $self->confirmation, +{%$opts, attribute=>"$human_attribute_name"})
  }
}
1;
=head1 NAME
Valiant::Validator::Confirmation - Checks for a 'confirming' attributes equality.
=head1 SYNOPSIS
    package Local::Test::Confirmation;
    use Moo;
    use Valiant::Validations;
    has email=> (is=>'ro');
    validates email => ( confirmation => 1 );
    my $object = Local::Test::Confirmation->new(
      email => 'AAA@example.com',
      email_confirmation => 'ZZZ@example.com'
    );
    $object->validate;
    warn $object->errors->_dump;
    $VAR1 = {
      'email_confirmation' => [
        "Email confirmation doesn't match 'Email'",
      ]
    };
=head1 DESCRIPTION
Use this when you have two attributes which should be set to the same value
(for example to confirm someone entered the correct email address or changed
their password to the same value).
The error message (if any) will appear associated with the confirmation attribute.
Error message uses tag C<confirmation> and you can override that with an init arg
of the same name.  You can also change the prefix used to identify the confirming
attribute with the C<prefix> init arg (default value is '_confirmation').
B<NOTE:> You don't need to add the confirmation attribute, we inject it for you during 
validation setup.
=head1 SHORTCUT FORM
This validator supports the follow shortcut forms:
    validates attribute => ( confirmation => 1, ... );
Which is the same as:
    validates attribute => (
      confirmation => +{},
    );
Not a lot of saved typing but it seems to read better.
  
=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