Проверка синтаксиса Perl Mason

Question

Есть ли способ проверить синтаксис Perl Mason в командной строке? Я знаю, для обычных модулей Perl вы можете просто использовать perl -c, но это бросает ошибки для специфического синтаксиса масонов, таких как строки документации и тому подобное...

Например:

<%doc>
DOCUMENTATION SHOULD NOT GET PARSED
</%doc>

<%args>
$args
</%args>

<%perl>
my $var = $args->{var};
</%perl>

является допустимым файлом Perl Mason, но работает perl -c против этого возвращается:

Semicolon seems to be missing at path/to/file.mc line 1.
syntax error at path/to/file.mc line 2, near "DOCUMENTATION S"
path/to/file.mc had compilation errors.

Answer 1

Я посмотрел на Мейсона, первое, что я вижу, это Мейсон:: App / mason.pl

$ mason junk.mason
Invalid attribute line '$args' at ./junk.mason line 6

Аккуратно, а? Но на самом деле он пытается запустить код, поэтому следующий шаг - заглянуть внутрь, и после небольшого осмотра я нахожу Mason:: Interp, у которого есть load (path), который задокументирован как

Возвращает объект компонента, соответствующий абсолютному пути компонента, или undef, если такового не существует. Умирает с ошибкой, если компонент не загружается из-за синтаксической ошибки.

Таким образом, вы можете настроить Mason:: App для загрузки вместо запуска или создать свою собственную простую версию, подобную этой

#!/usr/bin/perl --
use strict; use warnings; use Mason;
my $interp = Mason->new(
    comp_root => '/path/to/comps',
    data_dir  => '/path/to/data',
    ...
);
$interp->load( shift );