1 files changed, 69 insertions, 0 deletions
diff --git a/lib/Reaction/InterfaceModel/Action/User/SetPassword.pm b/lib/Reaction/InterfaceModel/Action/User/SetPassword.pm
new file mode 100644
index 0000000..fcf922a
--- /dev/null
+++ b/lib/Reaction/InterfaceModel/Action/User/SetPassword.pm
@@ -0,0 +1,69 @@
+package Reaction::InterfaceModel::Action::User::SetPassword;
+
+use Reaction::Class;
+use Reaction::InterfaceModel::Action;
+
+class SetPassword is 'Reaction::InterfaceModel::Action', which {
+
+  has new_password => (isa => 'Password', is => 'rw', lazy_fail => 1);
+  has confirm_new_password => 
+      (isa => 'Password', is => 'rw', lazy_fail => 1);
+  
+  around error_for_attribute => sub {
+    my $super = shift;
+    my ($self, $attr) = @_;
+    if ($attr->name eq 'confirm_new_password') {
+      return "New password doesn't match"
+        unless $self->verify_confirm_new_password;
+    }
+    return $super->(@_);
+  };
+  
+  around can_apply => sub {
+    my $super = shift;
+    my ($self) = @_;
+    return 0 unless $self->verify_confirm_new_password;
+    return $super->(@_);
+  };
+  
+  implements verify_confirm_new_password => as {
+    my $self = shift;
+    return $self->has_new_password && $self->has_confirm_new_password
+        && ($self->new_password eq $self->confirm_new_password);
+  };
+
+};
+
+1;
+
+=head1 NAME
+
+Reaction::InterfaceModel::Action::User::SetPassword
+
+=head1 DESCRIPTION
+
+=head1 ATTRIBUTES
+
+=head2 new_password
+
+=head2 confirm_new_password
+
+=head1 METHODS
+
+=head2 verify_confirm_new_password
+
+Tests to make sure that C<new_password> and C<confirm_new_password> match.
+
+=head1 SEE ALSO
+
+L<Reaction::InterfaceModel::Action::DBIC::User::SetPassword>
+
+=head1 AUTHORS
+
+See L<Reaction::Class> for authors.
+
+=head1 LICENSE
+
+See L<Reaction::Class> for the license.
+
+=cut