File Coverage

blib/lib/meon/Web/Form/ExtendMembership.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package meon::Web::Form::ExtendMembership;

use meon::Web::Util;
use Class::Load 'load_class';

use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
with 'meon::Web::Role::Form';

has '+name' => (default => 'form-member-update');
has '+widget_wrapper' => ( default => 'Bootstrap' );
sub build_form_element_class { ['form-horizontal'] };

sub submitted {
    my $self = shift;

    my $c = $self->c;
    my $post_process = eval { $self->get_config_text('post-process') };
    my $profiles_dir = meon::Web::env->profiles_dir;
    my $username     = $c->req->body_params->{username};
    my $member = meon::Web::Member->new(
        members_folder => $profiles_dir,
        username       => $username,
    );
    my $member_pre_status = $member->user->status;

    $c->detach('/status_not_found', ['failed to load user'])
        unless eval { $member->xml };

    $member->extend_expiration_by_1y;

    if ($post_process) {
        load_class($post_process);

        if ($member_pre_status eq 'registration-pending') {
            $post_process->member_registred($member);
        }
        else {
            $post_process->membership_extended($member);
        }
    }

    $self->redirect('');
}

no HTML::FormHandler::Moose;

1;