Rakudo Perl 6 on Android ICS 4.0.3 #perl6 - L<link|http://blogs.perl.org/users/martin_berends/2012/06/rakudo-perl-6-on-android-ics-403.html>


"Hopefully this information will encourage some people to try hacking Perl 6 on Android."


item

Rakudo Perl 6 on Android ICS 4.0.3 #perl6


TITLE

DESCRIPTION

comment

=begin comment :src
{
  "comments": [
    {
      "via": {
        "url": "http://friendfeed.com/share/bookmarklet",
        "name": "Bookmarklet"
      },
      "id": "e/ae8744ad2ad546f594012544ea6e3789/c/3e1fc284f57643f2a265571dc18f3b5e",
      "from": {
        "type": "user",
        "id": "zag",
        "name": "углы «Исимуры»"
      },
      "date": "2012-06-17T06:54:39Z",
      "rawBody": "\"Hopefully this information will encourage some people to try hacking Perl 6 on Android.\"",
      "body": "&quot;Hopefully this information will encourage some people to try hacking Perl 6 on Android.&quot;"
    }
  ],
  "via": {
    "url": "http://friendfeed.com/share/bookmarklet",
    "name": "Bookmarklet"
  },
  "from": {
    "id": "zag",
    "type": "user",
    "name": "углы «Исимуры»"
  },
  "body": "Rakudo Perl 6 on Android ICS 4.0.3 <a href=\"http://friendfeed.com/search?q=%23perl6\">#perl6</a> - <a rel=\"nofollow\" href=\"http://blogs.perl.org/users/martin_berends/2012/06/rakudo-perl-6-on-android-ics-403.html\" title=\"http://blogs.perl.org/users/martin_berends/2012/06/rakudo-perl-6-on-android-ics-403.html\">http://blogs.perl.org/users...</a>",
  "likes": [
    {
      "from": {
        "type": "user",
        "id": "blacklion",
        "name": "рептильный дом"
      },
      "date": "2012-06-17T10:12:41Z"
    },
    {
      "date": "2012-06-17T10:04:38Z",
      "from": {
        "type": "user",
        "id": "kkapp",
        "name": "alex@kapranoff.ru"
      }
    }
  ],
  "rawLink": "http://blogs.perl.org/users/martin_berends/2012/06/rakudo-perl-6-on-android-ics-403.html",
  "date": "2012-06-17T06:54:39Z",
  "id": "e/ae8744ad2ad546f594012544ea6e3789",
  "url": "http://friendfeed.com/zag/ae8744ad/rakudo-perl-6-on-android-ics-4-0-3-perl6",
  "rawBody": "Rakudo Perl 6 on Android ICS 4.0.3 #perl6"
}
=end comment


root

Я хотел бы поделиться впечатлениями после довольно продолжительного времени разработки 
без шаблонизаторов на бэкенде. История началась с отказа от Template::Toolkit на серверной стороне и переноса представления на сторону веб клиента.


Я хотел бы поделиться впечатлениями после довольно продолжительного времени разработки
без шаблонизаторов на бэкенде. История началась с отказа от C<Template::Toolkit> на серверной стороне и переноса представления на сторону веб клиента N< Perl 5 модули, которые я использую реже и реже. L<http://zag.ru/b48j1>>. Вместе с представлением туда переместились и шаблоны, сохранив за собой право быть использованными и на серверной стороне N< Plosurin: Perl реализация Closure Templates. L<http://zag.ru/a4Fr1>>, но это отдельная тема. Сейчас, по истечении некоторого времени, очевидны стали следующие моменты.


Упростилась разработка бэкенда


head

На данный момент, по сути, серверная строна представляет собой API с авторизацией для доступа к данным, а форматы вывода: JSON, JSONP и XML. Ниже я приведу пример кода, который определяет
требуемый формат вывода и форматирует результаты. Код написан для «WebDAO» N< Платформа WebDAO для разработки web приложений на Perl 5. L<http://webdao.sourceforge.net/>>, но общий смысл, я постараюсь передать в комментариях:


code

=begin code :allow(B)
package MyApp;
use WebDAO;
use base 'WebDAO::Engine';
use JSON;
use XML::Simple;

# пример метода 
# он отображается на url /Test
 sub Test {
    { 
        1 => 2,
        error => 0 
    }
 }

# этот метод обрабатывает http запросы
 sub _traverse_  {
    my $self = shift;
    my ( $src, $res ) = $self->SUPER::_traverse_( @_ );
    # $src - объект обработавший запрос
    # B<$res - результат вызова метода>
    if ( B«ref($res) eq 'HASH'» ) {
        my $r = $self->response();

        # B«$r->wantformat» возвращает true если
        # присутствует параметр format=xml или 
        # путь заканчивается на B<.xml>
        # например: http://example.com/api/get1&format=xml, 
        # http://example.com/api/get1.xml

        if ($r->wantformat('xml') ) { B<#xml>

            $r->content_type('appliction/xml;charset=UTF-8');
            $r->print(XMLout( $res ))

        } else {  # default 'json' 

            $r->content_type('text/javascript;charset=UTF-8');
            # B«параметр pretty => 1 для форматированного JSON»
	    $r->print(to_json($res, {utf8 => 1, pretty => 1}))
        }
        $r->flush;
        $r->_destroy;
        $r->set_empty();
        return (undef, $r) ;  #return empty response
    }
    return ( $src, $res );
 }
1;
=end code 


Данный код позволяет писать простые методы:


sub Test {
   { 
       1 => 2,
       error => 0 
   }
}


Достаточно вернуть в качестве ответа ссылку на хэш и преобразование к требуемому
формату будет выполнено автоматически.


Следующим и, пожалуй, наиболее эффектным последствием отказа от шаблонизаторов на бэкенде
стала возможность разрабатывать без веб сервера и браузера. 
Текстовые форматы JSON и XML хорошо читаются без дополнительных программ и хорошо воспринимаются при отображении в консоли. 


Поэтому увидеть результат запроса просто:


Таким образом значительно упрощается среда разработки и время необходимое 
для развертывания окружения.


«Кесарю кесарево» N< Кесарю кесарево. L<http://ru.wikipedia.org/wiki/Кесарю кесарево|http://ru.wikipedia.org/wiki/%D0%9A%D0%B5%D1%81%D0%B0%D1%80%D1%8E_%D0%BA%D0%B5%D1%81%D0%B0%D1%80%D0%B5%D0%B2%D0%BE>>


Шаблоны были неким общим «местом встречи» фронтенд и бэкенд разработчиков. Файлы шаблонов редактировали одни и вторые. С одной стороны, серверсайд программисты проникались чувством прекрасного посредством копипасты кусков html и css, а с другой стороны – дизайнеры и javascript разработчики, вынуждены были знать дополнительный серверный язык шаблонов I<( и быть в некоторой зависимости от принятых правил деплоя )>.


На данный момент единственным связующим фронтенд и бэкенд разарботку 
является API, который структурирован, может быть формализован и документирован. Это делает разработку динамичнее благодаря отсутствию общих точек, где возможны «блокировки», и определяет четкие границы ответственности.


Не факт, что избавление от шаблонизаторов на стороне сервера - универсальный
рецепт на все случаи жизни. Но для некоторых проектов использование
подобного подхода -  хороший способ упростить разработку и даже начать экпериментировать с разными технологиями бэкендов.


К тому же, этот API может стать хорошим стартом для создания публичного API сервиса.


Жизнь без шаблонов


Recently i was reimplement Perl6::Pod to simplify it. First i move to new syntax parser wich build using Regexp::Grammars. And then rewrite export scripts: pod6docbook and pod6xhtml. 


During the rewrite of Perl6::Pod using Regexp::Grammars, I experienced a lot of fun. Just look at the text of pod6 grammars N<Pod6 grammars.L<https://github.com/zag/p5-Perl6-Pod/blob/master/lib/Perl6/Pod/Grammars.pm>>.
At the end i have the following simple apis for use pod6.


use Perl6::Pod::Test; 
my $html = Perl6::Pod::Test::parse_to_xhtml($pod);


Pod6 Grammars can be inherited. You could debug it step-by-step.


=begin code :allow<B>
 use Regexp::Grammars;
    use Perl6::Pod::Grammars;
    use Data::Dumper;

    my $r =  qr{
       <extends: Perl6::Pod::Grammar::Blocks>
       <debug:step>
        \A <File> \Z
    }xms;
    my $tree ;
    if ( $src =~ $r  ) {
     print Dumper( $/{File} );
    }
    else {
        return undef;
    }
=end code


sudo add-apt-repository ppa:zahatski/ppa    
sudo apt-get install libperl6-pod-perl


or from CPAN N< Implementation of Synopsis26. L<http://search.cpan.org/dist/Perl6-Pod/>>.


Perl6::Pod hosted on github.com N< Perl6::Pod on GitHub.L<https://github.com/zag/p5-Perl6-Pod>>. Reports of bugs are always welcome.
