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 | }; |
16 | ||
81393881 | 17 | |
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 |