[catagits/Reaction.git] / lib / Reaction / InterfaceModel / Action / DBIC / User / Role / SetPassword.pm

package Reaction::InterfaceModel::Action::DBIC::User::Role::SetPassword;

use Reaction::Role;

use namespace::clean -except => [ qw(meta) ];


#requires qw/target_model/;
sub do_apply {
  my $self = shift;
  my $user = $self->target_model;
  $user->password($self->new_password);
  $user->update;
  return $user;
};


1;

=head1 NAME

Reaction::InterfaceModel::Action::DBIC::User::Role::SetPassword

=head1 DESCRIPTION

=head2 meta

=head1 AUTHORS

See L<Reaction::Class> for authors.

=head1 LICENSE

See L<Reaction::Class> for the license.

=cut
Commit	Line	Data
7adfd53f	1	package Reaction::InterfaceModel::Action::DBIC::User::Role::SetPassword;
	2
	3	use Reaction::Role;
	4
81393881	5	use namespace::clean -except => [ qw(meta) ];
7adfd53f	6
7adfd53f	7
81393881	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;
7adfd53f	15	};
7adfd53f	16
81393881	17
81393881	18
7adfd53f	19	1;
	20
	21	=head1 NAME
	22
e0bf6a9f	23	Reaction::InterfaceModel::Action::DBIC::User::Role::SetPassword
7adfd53f	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