moved shit to trunk

1 files changed, 44 insertions, 0 deletions

diff --git a/lib/Reaction/InterfaceModel/Action/User/Role/ConfirmationCodeSupport.pm b/lib/Reaction/InterfaceModel/Action/User/Role/ConfirmationCodeSupport.pm
new file mode 100644
index 0000000..649f76a
--- /dev/null
+++ b/lib/Reaction/InterfaceModel/Action/User/Role/ConfirmationCodeSupport.pm
@@ -0,0 +1,44 @@
+package Reaction::InterfaceModel::Action::User::Role::ConfirmationCodeSupport;
+
+use Reaction::Role;
+use Digest::MD5;
+
+role ConfirmationCodeSupport, which{
+
+  #requires qw/target_model ctx/;
+
+  implements generate_confirmation_code => as {
+    my $self = shift;
+    my $ident = $self->target_model->identity_string.
+      $self->target_model->password;
+    my $secret = $self->ctx->config->{confirmation_code_secret};
+    die "Application config does not define confirmation_code_secret"
+      unless $secret;
+    return Digest::MD5::md5_hex($secret.$ident);
+  };
+
+};
+
+1;
+
+=head1 NAME
+
+Reaction::InterfaceModel::Action::User::Role::ConfirmationCodeSupport
+
+=head1 DESCRIPTION
+
+=head2 generate_confirmation_code
+
+=head2 meta
+
+Need to define confirmation_code_secret in application config.
+
+=head1 AUTHORS
+
+See L<Reaction::Class> for authors.
+
+=head1 LICENSE
+
+See L<Reaction::Class> for the license.
+
+=cut