)
/$1 || $2/segx
) {
- #$text =~ s/^ .*? (?: (?: translate f? | i18n ) [\s\n]* ( \( ) | ( <%: -? ) ) / $1 || $2 /sex;
- #warn "T[$text]";
my $code;
- reparse:
( $code, $text ) = extract_codeblock( $text, '', '^', '()' );
if( ! $code ) {
( $code, $text ) = extract_codeblock( $text, '', '^', '<>' );
}
my ( $k, $v ) = _parse( $code );
- #warn "M[$code]";
- #last;
-
if( $k && defined($v) )
{
if( $v )