added can_apply

diff --git a/lib/Reaction/InterfaceModel/Action/User/ResetPassword.pm b/lib/Reaction/InterfaceModel/Action/User/ResetPassword.pm
index a204c7b..43d1927 100644 (file)
--- a/lib/Reaction/InterfaceModel/Action/User/ResetPassword.pm
+++ b/lib/Reaction/InterfaceModel/Action/User/ResetPassword.pm
@@ -12,16 +12,14 @@ has confirmation_code =>
 
 has 'user' => (
     is => 'rw', metaclass => 'Reaction::Meta::Attribute',
+    predicate => 'has_user',
 );
 
-around error_for_attribute => sub {
-  my $super = shift;
-  my ($self, $attr) = @_;
-  if ($attr->name eq 'confirmation_code') {
-    return "Confirmation code incorrect"
-      unless $self->verify_confirmation_code;
-  }
-  #return $super->(@_); #commented out because the original didn't super()
+around can_apply => sub {
+    my $super = shift;
+    my ($self) = @_;
+    return 0 unless $self->verify_confirmation_code;
+    return $super->(@_);
 };
 
 sub verify_confirmation_code {
@@ -37,6 +35,15 @@ sub verify_confirmation_code {
   }
 }
 
+around error_for_attribute => sub {
+  my $super = shift;
+  my ($self, $attr) = @_;
+  if ($attr->name eq 'confirmation_code') {
+    return 'Confirmation code incorrect' unless $self->has_user;
+  }
+  return $super->(@_);
+};
+
 sub do_apply {
   my $self = shift;
   return $self->user->reset_password($self->new_password);