[Moscow.pm] Parse::RecDescent парсинг процедуры

[Sergey Leschenko]

2012/1/11 Nikolay Mishin <mi на ya.ru>:
> Hi Moscow-PM
> Коллеги
> почему у меня в коде
> https://gist.github.com/1595532
>
> не срабатывает грамматика
>    get_sub:
>           NOWORD TEST NOWORD
>
> на '>test1$' ? (переменная $perl_code1 )

my $perl_code1  = q{my >test1$ string3 = $object->oldSub(6,7);};

У тебя тут  my, поэтому правило должно выглядеть как get_sub: WORD
NOWORD TEST NOWORD
В итоге в @item:  my > test1 $

-- 
Sergey