332 |
my ($Document,$Element) = @_; |
my ($Document,$Element) = @_; |
333 |
|
|
334 |
$Element->isa('PPI::Token::Word') or return ''; |
$Element->isa('PPI::Token::Word') or return ''; |
335 |
|
|
336 |
|
if ( $Element->content eq 'sub' ) { |
337 |
|
# repair demage done by prune of whitespace |
338 |
|
$Element->insert_after( PPI::Token::Whitespace->new(' ') ); |
339 |
|
return ''; |
340 |
|
} |
341 |
|
|
342 |
$Element->content eq 'lookup' or return ''; |
$Element->content eq 'lookup' or return ''; |
343 |
|
|
344 |
$log->debug("expansion: ", $Element->snext_sibling); |
$log->debug("expansion: ", $Element->snext_sibling); |
413 |
} |
} |
414 |
|
|
415 |
$e[7]->remove; |
$e[7]->remove; |
416 |
$e[8]->insert_before( new PPI::Token::Quote::Single( "'$key'" ) ); |
$e[8]->insert_before( PPI::Token::Quote::Single->new( "'$key'" ) ); |
417 |
$e[8]->remove; |
$e[8]->remove; |
418 |
|
|
419 |
|
|