|
501
|
0 |
19 |
0 |
shift() || qr/(?x)(?{; *Regexp::Grammars::LOGFILE
= Regexp::Grammars::_open_log('>>','-', 'for regex grammar defined at \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/SoyTree.pm line 501'); })((?{; @! = () if !pos;
local @Regexp::Grammars::RESULT_STACK
= (@Regexp::Grammars::RESULT_STACK, {});
local $Regexp::Grammars::TIMEOUT = { limit => -1>>1 };
local $Regexp::Grammars::DEBUG = 'off' }) (?:
\A (?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&content))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'content', 'content', \$^N
),
);
}))* \Z
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 91 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_content>
(?<content>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:
(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&matchpos))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'matchpos', 'matchpos', \$^N
),
);
}))
(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&matchline))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'matchline', 'matchline', \$^N
),
);
}))
(?:
(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&raw_text))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'obj', 'raw_text', \$^N
),
);
}))
|(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&command_include))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'obj', 'command_include', \$^N
),
);
}))
|(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&command_if))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'obj', 'command_if', \$^N
),
);
}))
|(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&command_call_self))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'obj', 'command_call_self', \$^N
),
);
}))
|(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&command_call))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'obj', 'command_call', \$^N
),
);
}))
|(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&command_import))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'obj', 'command_import', \$^N
),
);
}))
|(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&command_foreach))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'obj', 'command_foreach', \$^N
),
);
}))
|(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&command_print))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'obj', 'command_print', \$^N
),
);
}))
|(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&raw_text_add))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'obj', 'raw_text_add', \$^N
),
);
}))
)
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::Node'->can('new')
? 'Soy::Node'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::Node';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'Node');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 108 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_raw_text_add>
(?<raw_text_add>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&matchpos))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'matchpos', 'matchpos', \$^N
),
);
}))(?&ws__implicit__)(.+?)
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::raw_text'->can('new')
? 'Soy::raw_text'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::raw_text';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'raw_text');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 113 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_command_print>
(?<command_print>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:(?&ws__implicit__)\{(?{;local @Regexp::Grammars::RESULT_STACK
= @Regexp::Grammars::RESULT_STACK;})(?&ws__implicit__)(?:((print))(?{;local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-2],
Regexp::Grammars::_extend_current_result_frame_with_scalar(
\@Regexp::Grammars::RESULT_STACK, 'is_explicit', \$^N
),
);}))?(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&expression))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'expression', 'expression', \$^N
),
);
}))\}
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::command_print'->can('new')
? 'Soy::command_print'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::command_print';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'command_print');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 116 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_command_include>
(?<command_include>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:(?&ws__implicit__)\{include(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&attribute))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'attribute', 'attribute', \$^N
),
);
})){0}(?&ws__implicit__)(?:(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&attribute))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'attribute', 'attribute', \$^N
),
);
}))(?:(?&ws__implicit__)(?{;@Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;})(?{;local @Regexp::Grammars::RESULT_STACK
= @Regexp::Grammars::RESULT_STACK;})(?&ws__implicit__)(?:((\s+))(?{;local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-2],
Regexp::Grammars::_extend_current_result_frame_with_scalar(
\@Regexp::Grammars::RESULT_STACK, '_sep', \$^N
),
);}))(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&attribute))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'attribute', 'attribute', \$^N
),
);
}))){1})(?&ws__implicit__)\}
|\{include(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&matchpos))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'matchpos', 'matchpos', \$^N
),
);
}))(?&ws__implicit__)(?:(?{;local $Regexp::Grammar::_memopos=pos();})(?&ws__implicit__)(?>\s*+((?-s).{0,20}+))
(?{; pos() = $Regexp::Grammar::_memopos;
@! = Regexp::Grammars::_uniq(
@!,
Regexp::Grammars::_translate_errormsg(do{say "'Include' require 2 attrs at $Regexp::Grammars::RESULT_STACK[-1]{matchpos}"},q{command_include},$^N)
) })(?&ws__implicit__)(?!)|(*COMMIT)(*FAIL))
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::command_include'->can('new')
? 'Soy::command_include'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::command_include';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'command_include');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 122 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_attribute>
(?<attribute>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:
(?{;local @Regexp::Grammars::RESULT_STACK
= @Regexp::Grammars::RESULT_STACK;})
(?:((\w+))(?{;local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-2],
Regexp::Grammars::_extend_current_result_frame_with_scalar(
\@Regexp::Grammars::RESULT_STACK, 'name', \$^N
),
);}))
=
['"] (?{;local @Regexp::Grammars::RESULT_STACK
= @Regexp::Grammars::RESULT_STACK;})
(?:((?: ([^'"]+) ))(?{;local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-2],
Regexp::Grammars::_extend_current_result_frame_with_scalar(
\@Regexp::Grammars::RESULT_STACK, 'value', \$^N
),
);})) ['"]
)
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 127 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_variable>
(?<variable>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?: \$?\w+
)
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 128 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_expression>
(?<expression>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?: .*?
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::expressiong'->can('new')
? 'Soy::expressiong'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::expressiong';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'expressiong');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 129 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_raw_text>
(?<raw_text>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:(?&ws__implicit__)[^\{]+
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::raw_text'->can('new')
? 'Soy::raw_text'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::raw_text';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'raw_text');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 132 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_command_if>
(?<command_if>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:(?&ws__implicit__)\{if(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&expression))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'expression', 'expression', \$^N
),
);
}))\}(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&content))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'content', 'content', \$^N
),
);
}))+?(?&ws__implicit__)(?:(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&command_elseif))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'commands_elseif', 'command_elseif', \$^N
),
);
}))*(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&command_else))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'command_else', 'command_else', \$^N
),
);
}))(?&ws__implicit__))?(?&ws__implicit__)\{\\/if\}
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::command_if'->can('new')
? 'Soy::command_if'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::command_if';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'command_if');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 140 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_command_elseif>
(?<command_elseif>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&matchpos))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'matchpos', 'matchpos', \$^N
),
);
}))(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&matchline))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'matchline', 'matchline', \$^N
),
);
}))(?&ws__implicit__)\{elseif(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&expression))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'expression', 'expression', \$^N
),
);
}))\}(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&content))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'content', 'content', \$^N
),
);
}))+?
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::command_elseif'->can('new')
? 'Soy::command_elseif'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::command_elseif';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'command_elseif');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 146 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_command_else>
(?<command_else>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&matchpos))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'matchpos', 'matchpos', \$^N
),
);
}))(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&matchline))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'matchline', 'matchline', \$^N
),
);
}))(?&ws__implicit__)\{else\}(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&content))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'content', 'content', \$^N
),
);
}))+?
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::command_else'->can('new')
? 'Soy::command_else'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::command_else';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'command_else');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 153 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_command_call_self>
(?<command_call_self>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:(?&ws__implicit__)\{call
(?{;local @Regexp::Grammars::RESULT_STACK
= @Regexp::Grammars::RESULT_STACK;})(?&ws__implicit__)(?:(([\.\w]+))(?{;local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-2],
Regexp::Grammars::_extend_current_result_frame_with_scalar(
\@Regexp::Grammars::RESULT_STACK, 'tmpl_name', \$^N
),
);}))(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&attribute))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'attribute', 'attribute', \$^N
),
);
})){0}(?&ws__implicit__)(?:(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&attribute))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'attribute', 'attribute', \$^N
),
);
}))(?:(?&ws__implicit__)(?{;@Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;})(?{;local @Regexp::Grammars::RESULT_STACK
= @Regexp::Grammars::RESULT_STACK;})(?&ws__implicit__)(?:((\s+))(?{;local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-2],
Regexp::Grammars::_extend_current_result_frame_with_scalar(
\@Regexp::Grammars::RESULT_STACK, '_sep', \$^N
),
);}))(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&attribute))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'attribute', 'attribute', \$^N
),
);
})))*)?(?&ws__implicit__)\\/\}
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::command_call_self'->can('new')
? 'Soy::command_call_self'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::command_call_self';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'command_call_self');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 159 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_command_call>
(?<command_call>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:(?&ws__implicit__)\{call (?{;local @Regexp::Grammars::RESULT_STACK
= @Regexp::Grammars::RESULT_STACK;})(?&ws__implicit__)(?:(([\.\w]+))(?{;local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-2],
Regexp::Grammars::_extend_current_result_frame_with_scalar(
\@Regexp::Grammars::RESULT_STACK, 'tmpl_name', \$^N
),
);}))(?&ws__implicit__)\}(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?¶m))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'content', 'param', \$^N
),
);
}))*(?&ws__implicit__)\{\\/call\}
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::command_call'->can('new')
? 'Soy::command_call'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::command_call';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'command_call');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 164 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_param>
(?<param>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:
(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&matchpos))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'matchpos', 'matchpos', \$^N
),
);
}))
(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&matchline))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'matchline', 'matchline', \$^N
),
);
}))
(?:
(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&command_param_self))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'obj', 'command_param_self', \$^N
),
);
}))
| (?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&command_param))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'obj', 'command_param', \$^N
),
);
}))
)
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::Node'->can('new')
? 'Soy::Node'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::Node';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'Node');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 172 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_command_param_self>
(?<command_param_self>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:(?&ws__implicit__)\{param(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&variable))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'name', 'variable', \$^N
),
);
}))(?&ws__implicit__): (?{;local @Regexp::Grammars::RESULT_STACK
= @Regexp::Grammars::RESULT_STACK;})(?&ws__implicit__)(?:((.*?))(?{;local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-2],
Regexp::Grammars::_extend_current_result_frame_with_scalar(
\@Regexp::Grammars::RESULT_STACK, 'value', \$^N
),
);}))(?&ws__implicit__)\\/\}
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::command_param_self'->can('new')
? 'Soy::command_param_self'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::command_param_self';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'command_param_self');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 177 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_command_param>
(?<command_param>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:(?&ws__implicit__)\{param (?{;local @Regexp::Grammars::RESULT_STACK
= @Regexp::Grammars::RESULT_STACK;})(?&ws__implicit__)(?:((.*?))(?{;local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-2],
Regexp::Grammars::_extend_current_result_frame_with_scalar(
\@Regexp::Grammars::RESULT_STACK, 'name', \$^N
),
);}))(?&ws__implicit__)\}(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&content))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'content', 'content', \$^N
),
);
}))+?(?&ws__implicit__)\{\\/param\}
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::command_param'->can('new')
? 'Soy::command_param'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::command_param';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'command_param');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 184 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_command_import>
(?<command_import>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:(?&ws__implicit__)\{import(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&attribute))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'attribute', 'attribute', \$^N
),
);
}))(?:(?&ws__implicit__)(?{;@Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;})(?{;local @Regexp::Grammars::RESULT_STACK
= @Regexp::Grammars::RESULT_STACK;})(?&ws__implicit__)(?:((\s+))(?{;local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-2],
Regexp::Grammars::_extend_current_result_frame_with_scalar(
\@Regexp::Grammars::RESULT_STACK, '_sep', \$^N
),
);}))(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&attribute))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'attribute', 'attribute', \$^N
),
);
})))*(?&ws__implicit__)\\/?\}
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::command_import'->can('new')
? 'Soy::command_import'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::command_import';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'command_import');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 188 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_command_foreach>
(?<command_foreach>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:(?&ws__implicit__)\{foreach(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&expression))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'local_var', 'expression', \$^N
),
);
}))(?&ws__implicit__)in(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&expression))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'expression', 'expression', \$^N
),
);
}))(?&ws__implicit__)\}(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&content))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'content', 'content', \$^N
),
);
}))+?(?&ws__implicit__)(?:(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&command_foreach_ifempty))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'command_foreach_ifempty', 'command_foreach_ifempty', \$^N
),
);
}))(?&ws__implicit__))?(?&ws__implicit__)\{\\/foreach\}
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::command_foreach'->can('new')
? 'Soy::command_foreach'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::command_foreach';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'command_foreach');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
###############[ \/root\/.cpan\/build\/Plosurin-0.2-0\/blib\/lib\/Plosurin\/Grammar.pm line 196 ]###############
(?(DEFINE)
(?<Plosurin_88_Grammar_88_command_foreach_ifempty>
(?<command_foreach_ifempty>
(?{
local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
(?:(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&matchpos))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'matchpos', 'matchpos', \$^N
),
);
}))(?&ws__implicit__)(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&matchline))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame(
\@Regexp::Grammars::RESULT_STACK, 'matchline', 'matchline', \$^N
),
);
}))(?&ws__implicit__)\{ifempty\}(?:(?{;
local @Regexp::Grammars::RESULT_STACK = (@Regexp::Grammars::RESULT_STACK, {'@'=>{()}});
$Regexp::Grammars::RESULT_STACK[-2]{'~'} = 0
if @Regexp::Grammars::RESULT_STACK >= 2;
})((?&content))(?{;
local \@Regexp::Grammars::RESULT_STACK = (
\@Regexp::Grammars::RESULT_STACK[0..\@Regexp::Grammars::RESULT_STACK-3],
Regexp::Grammars::_pop_current_result_frame_with_list(
\@Regexp::Grammars::RESULT_STACK, 'content', 'content', \$^N
),
);
}))+?
) (??{; local @Regexp::Grammars::RESULT_STACK = @Regexp::Grammars::RESULT_STACK;
$Regexp::Grammars::RESULT_STACK[-1] = 'Soy::command_foreach_ifempty'->can('new')
? 'Soy::command_foreach_ifempty'->new($Regexp::Grammars::RESULT_STACK[-1])
: bless $Regexp::Grammars::RESULT_STACK[-1], 'Soy::command_foreach_ifempty';
Regexp::Grammars::_debug_non_hash($Regexp::Grammars::RESULT_STACK[-1],'command_foreach_ifempty');
})
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
))
)
)(?{; $Regexp::Grammars::RESULT_STACK[-1]{q{}} \/\/= $^N;;
local $Regexp::Grammars::match_frame = pop @Regexp::Grammars::RESULT_STACK;
delete @{$Regexp::Grammars::match_frame}{
'~', grep {substr($_,0,1) eq '_'} keys %{$Regexp::Grammars::match_frame}
};
if (exists $Regexp::Grammars::match_frame->{'='}) {
if (ref($Regexp::Grammars::match_frame->{'='}) eq 'HASH') {
$Regexp::Grammars::match_frame
= $Regexp::Grammars::match_frame->{'='};
}
}
if (@Regexp::Grammars::RESULT_STACK) {
$Regexp::Grammars::RESULT_STACK[-1]{'(?R)'}
= $Regexp::Grammars::match_frame;
}
Regexp::Grammars::clear_rule_handler();
*\/ = $Regexp::Grammars::match_frame;
})|\Z(?{Regexp::Grammars::clear_rule_handler();})(?!)(?(DEFINE)
(?<ws__implicit__> \s* )
(?<ws>
(?{$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
\s*
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
)
(?<hk__implicit__> \S+ )
(?<hk>
(?{$Regexp::Grammars::RESULT_STACK[-1]{'!'}=$#{!};})
\S+
(?{;$#{!}=delete($Regexp::Grammars::RESULT_STACK[-1]{'!'})\/\/0;
delete($Regexp::Grammars::RESULT_STACK[-1]{'@'});
})
)
(?<matchpos> (?{; $Regexp::Grammars::RESULT_STACK[-1]{"="} = pos; }) )
(?<matchline> (?{; \$Regexp::Grammars::RESULT_STACK[-1]{"="} = 1 + substr(\$_,0,pos) =~ tr\/\n\/\n\/; }) )
)
/msx
|