<div dir="ltr"><div class="gmail_default" style="font-family:monospace,monospace">Приветствую всех! <br><br>Сегодня я бы хотел представить веб-фреймворк на перл 5 собственного сочинения, Ниф (Not Even A Framework). Написан он больше для самообразования, т.к. и так их как собак нерезаных, но мне кажется, в нём есть некие здравые идеи. Суть такова:<br><br>1. Приложение разбивается на маленькие процедуры-хэндлеры, привязанные к пути в URI (см. тж. <a href="https://metacpan.org/pod/Dancer">https://metacpan.org/pod/Dancer</a> )<br><br>2. Хэндлер получает на вход объект запроса, из которого потом достаются параметры, куки, заголовки и т.д. (см. тж. <a href="https://metacpan.org/pod/Kelp">https://metacpan.org/pod/Kelp</a> )<br><br>3. Параметры и куки нельзя достать без валидации, например, при помощи регулярного выражения: <br><br>  $req->param( foo => qr/\d+/ );<br><br>См. тж. perl -T <br><br>В качестве альтернативы есть самовалидирующиеся формы на базе Validator::LIVR или самописного каличного движка (но ЛИВР лучше).<br><br>См. тж. <a href="https://metacpan.org/pod/Validator::LIVR">https://metacpan.org/pod/Validator::LIVR</a> и <a href="https://metacpan.org/pod/Data::CGIForm">https://metacpan.org/pod/Data::CGIForm</a><br><br>4. Хэндлер может вернуть ссылку на хэш с какими угодно параметрами, которая затем передаётся в шаблонизатор для рендеринга. На данный момент поддерживается Template::Toolkit и JSON/JSONP<br><br>Также есть ограниченный набор ключей с минусом, которые используются для управления самим фреймворком - -template, -status и т.п<br><br>5. Хэндлер может выбросить исключение: die 404 - легальный способ вернуть настраиваемую страницу not found. Все нормальные исключения (не трёхцифренные и не специальные объекты самого Neaf) трактуются как error 500.<br><br>6. Один и тот же код может в неизменном виде запускаться как cgi, psgi и под Apache2 + mod_perl (с некоторым бубном). Также поддерживается дебаг из командной строки:<br><br>   perl <a href="http://myapp.pl">myapp.pl</a> --help<br>   perl <a href="http://myapp.pl">myapp.pl</a> --list<br><br>7. Кроме этого есть поддержка статических страниц (не надо держать отдельно нормальный веб-сервер, чтобы проверить CSS или логотип), сессий в несколько недоделанном виде (планируется улучшение), отложенные действия, выполняемые после запроса, ну и по мелочи ещё.<br><br>Пример кода:<br><br>    use strict;<br>    use warnings;<br>    use MVC::Neaf;<br><br>    MVC::Neaf->route( "/" => sub {<br>        my $req = shift;<br><br>        return {<br>            -template => \'Hello, [% name %]!',<br>            -type     => 'text/plain',<br>            name      => $req->param( name => qr/\w+/, "Stranger" ),<br>        },<br>    });<br><br>На каждую фичу есть небольшой пример, они же используются как дополнительные смоук-тесты к 80% покрытию юнит-тестами. см. <a href="https://github.com/dallaylaen/perl-mvc-neaf/tree/master/example">https://github.com/dallaylaen/perl-mvc-neaf/tree/master/example</a><br><br>Собственно фреймворк:<br><br><a href="https://metacpan.org/pod/MVC::Neaf">https://metacpan.org/pod/MVC::Neaf</a><br><br>Буду рад обратной связи, критике, багрепортам и запросам новых фич (см. тж. <a href="https://github.com/dallaylaen/perl-mvc-neaf/blob/master/TODO">https://github.com/dallaylaen/perl-mvc-neaf/blob/master/TODO</a> )<br><br>С уважением,<br><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><div><div><div><font face="monospace,monospace">Konstantin S. Uvarin<br></font></div><font face="monospace,monospace">jabber: see <from><br></font></div><font face="monospace,monospace">skype: kuvarin<br></font></div><font face="monospace,monospace"><a href="http://github.com/dallaylaen" target="_blank">http://github.com/dallaylaen</a><br></font></div></div>
</div>