first DRAFT of matching passwords widget so we can move it out of the model. not tested yet at all.

1 files changed, 33 insertions, 0 deletions

diff --git a/lib/Reaction/UI/ViewPort/Field/Mutable/MatchingPasswords.pm b/lib/Reaction/UI/ViewPort/Field/Mutable/MatchingPasswords.pm
new file mode 100644
index 0000000..03cb922
--- /dev/null
+++ b/lib/Reaction/UI/ViewPort/Field/Mutable/MatchingPasswords.pm
@@ -0,0 +1,33 @@
+package Reaction::UI::ViewPort::Field::Mutable::MatchingPasswords;
+
+use Reaction::Class;
+use aliased 'Reaction::UI::ViewPort::Field::Mutable::Password';
+
+class MatchingPasswords is Password, which {
+
+  has check_value => (is => 'rw', isa => 'Str', );
+
+  #maybe both check_value and value_string should have triggers ?
+  #that way if one even happens before the other  it would still work?
+  around _adopt_value_string => sub {
+    my $orig = shift;
+    my ($self) = @_;
+    return $orig->(@_) if $self->check_value eq $self->value_string;
+    $self->message("Passwords do not match");
+  };
+
+  #order is important check_value should happen before value here ...
+  #i don't like how this works, it's unnecessarily fragile, but how else ?
+  around accept_events => sub { ('check_value', shift->(@_)) };
+
+  around can_sync_to_action => sub {
+    my $orig = shift;
+    my ($self) = @_;
+    return $orig->(@_) if $self->check_value eq $self->value_string;
+    $self->message("Passwords do not match");
+    return;
+  };
+
+};
+
+1;