Модули

Последне время я активно пишу модули и выкладываю их на CPAN. Сейчас написано мной четыре основных модуля и все они активно поддерживаются и развиваются. Описывать каждый из этих модулей на этом сайте я не буду, потому как они часто изменяются и самое полное описание находится всегда на CPAN.

Некоторый участок кода, который демонстрирует использование пару моих модулей (MPMinus и TemplateM):

sub hResponse {
    my $m = shift;
    my $r = $m->r;

    my $status = $m->ActionTransaction($actObject,$actEvent);
    return $status if $status != Apache2::Const::OK;

    $template->cast_if("info", $usr{info} && !@error);
	$h{info} ||= $usr{info} || '';

    $template->cast_if("error",@error);
    my $errbox = $template->start("error");
    $errbox->loop(text=>$_) foreach (@error);
    $errbox->finish();

    $template->stash(\%h);
    $r->headers_out->set('Accept-Ranges', 'none');
    my $data = $template->output();
    $r->set_content_length(length(Encode::encode_utf8($data)) || 0);
    $r->print($data);
    $r->rflush();
    return $status;
}

Моя учетная запись на CPAN