File Coverage

blib/lib/Siesta/Plugin/Challenge.pm

Criterion	Covered	Total	%
statement	21	24	87.5
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	1	2	50.0
total	29	34	85.2

package Siesta::Plugin::Challenge;
use strict;
use Siesta::Plugin;
use base 'Siesta::Plugin';
use String::Random();

# suggested usage  set_plugins( subscribe => qw( Challenge Subscribe ) );
#                  set_plugins( resume    => qw( Resume ) );

sub description {
    'defer a message and send a challenge';
}

sub process {
    my $self = shift;
    my $mail = shift;

    my $newmember = 0;     # is this a new member
    my $member = Siesta::Member->load( $mail->from );
    unless ($member) {
        my $password = String::Random->new->randpattern('......');
        $member = Siesta::Member->create({ email    => $mail->from,
                                           password => $password });
        $newmember = 1;
    }

    my $deferred = $mail->defer( who => $member, why => "challenge" );
    $mail->reply(
        from => $self->list->address( 'resume' ),
        body => Siesta->bake( "challenge",
                              deferred  => $deferred,
                              newmember => $newmember,
                             ),
       );
    return 1;
}


1;