lib/Reaction/InterfaceModel/Action/DBIC/User/Role/SetPassword.pm

   1 package Reaction::InterfaceModel::Action::DBIC::User::Role::SetPassword;
   2
   3 use Reaction::Role;
   4
   5 use namespace::clean -except => [ qw(meta) ];
   6
   7
   8 #requires qw/target_model/;
   9 sub do_apply {
  10   my $self = shift;
  11   my $user = $self->target_model;
  12   $user->password($self->new_password);
  13   $user->update;
  14   return $user;
  15 };
  16
  17
  18
  19 1;
  20
  21 =head1 NAME
  22
  23 Reaction::InterfaceModel::Action::DBIC::User::Role::SetPassword
  24
  25 =head1 DESCRIPTION
  26
  27 =head2 meta
  28
  29 =head1 AUTHORS
  30
  31 See L<Reaction::Class> for authors.
  32
  33 =head1 LICENSE
  34
  35 See L<Reaction::Class> for the license.
  36
  37 =cut