RT @lveecon: незабываем, что в этом году конференция будет проходить с 7 по 10 июня. регистрируйтесь!нестесняйтесь! - L<link|http://twitter.com/zagru/statuses/200574975239921665>


RT @lveecon: незабываем, что в этом году конференция будет проходить с 7 по 10 июня. регистрируйтесь!нестесняйтесь!


TITLE

DESCRIPTION

comment

=begin comment :src
{
  "body": "RT @<a rel=\"nofollow\" href=\"http://twitter.com/lveecon\">lveecon</a>: незабываем, что в этом году конференция будет проходить с 7 по 10 июня. регистрируйтесь!нестесняйтесь!",
  "rawLink": "http://twitter.com/zagru/statuses/200574975239921665",
  "id": "e/806af6328b5f84292077f880eedaab04",
  "rawBody": "RT @lveecon: незабываем, что в этом году конференция будет проходить с 7 по 10 июня. регистрируйтесь!нестесняйтесь!",
  "date": "2012-05-10T13:16:15Z",
  "url": "http://friendfeed.com/zag/806af632/rt-lveecon-7-10",
  "via": {
    "url": "http://twitter.com/zagru/statuses/200574975239921665",
    "name": "Twitter"
  },
  "from": {
    "name": "углы «Исимуры»",
    "type": "user",
    "id": "zag"
  }
}
=end comment


root

Недавно я завершил процесс упрощения некоторых вещей. Я переработал реализацию Pod6 и получил от этого процесса массу удовольствия. Главной мантрой стала следующая: "проще, еще проще". 


Синтаксичексий анализатор на Regexp::Grammars


head

Эта часть работы больше всего оказала влияния на внутреннюю архитектуру
парсера pod6. 


Вместо потокового принципа обработки файла, текущий парсер
полностью построен на грамматиках Perl5.


Благодаря Regexp::Grammars получилось лаконично описать структуру Pod6 N< Грамматика Pod6. L<https://github.com/zag/p5-Perl6-Pod/blob/master/lib/Perl6/Pod/Grammars.pm>>. Это и стало основным шагом к простоте. Как следствие, большое количество
кода и модулей оказались лишними.


На данный момент самым простым способом использования pod6
является следующий:


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


Функция C<parse_to_xhtml> используется в большом количестве тестов,
поэтому ее работоспособность является ключевым показателем.


Грамматики Perl5 можно наследовать I<(есть даже множественное наследование )>. Поэтому изучить грамматики pod6 просто:


code

=begin code :allow<B>

    use Regexp::Grammars;
    use Perl6::Pod::Grammars;
    use Data::Dumper;

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


Установить библиотеку в системе Ubuntu можно следующим образом:


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


Perl6::Pod также доступна на CPAN N< Реализация Pod6. L<http://search.cpan.org/dist/Perl6-Pod/>>.


Обновление Perl6::Pod   


Image

=begin comment :src
{
  "id": "e/c44b9f4c1d0a4434ab650d38063a5bcf",
  "date": "2012-04-01T05:59:50Z",
  "thumbnails": [
    {
      "url": "http://m.friendfeed-media.com/4053d75951574c7b8520dc8212b8ab149440dd82",
      "width": 296,
      "link": "http://m.friendfeed-media.com/2ea7354414b34ef9c0d35fff19993abf279a2783",
      "height": 175
    }
  ],
  "rawBody": "Google maps #8bit !",
  "url": "http://friendfeed.com/zag/c44b9f4c/google-maps-8bit",
  "rawLink": "http://friendfeed.com/e/c44b9f4c-1d0a-4434-ab65-0d38063a5bcf",
  "body": "Google maps <a href=\"http://friendfeed.com/search?q=%238bit\">#8bit</a> !",
  "from": {
    "type": "user",
    "id": "zag",
    "name": "углы «Исимуры»"
  }
}
=end comment
