… | |
… | |
1548 | |
1548 | |
1549 | Expand crossfire pod fragments into protocol xml. |
1549 | Expand crossfire pod fragments into protocol xml. |
1550 | |
1550 | |
1551 | =cut |
1551 | =cut |
1552 | |
1552 | |
1553 | use re 'eval'; |
1553 | use re 'eval'; |
1554 | |
1554 | |
1555 | my $group; |
1555 | my $group; |
1556 | my $interior; $interior = qr{ |
1556 | my $interior; $interior = qr{ |
|
|
1557 | # match a pod interior sequence sans C<< >> |
1557 | (?: |
1558 | (?: |
1558 | \ (.*?)\ (?{ $group = $^N }) |
1559 | \ (.*?)\ (?{ $group = $^N }) |
1559 | | < (??{$interior}) > |
1560 | | < (??{$interior}) > |
1560 | ) |
1561 | ) |
1561 | }x; |
1562 | }x; |
… | |
… | |
1626 | s/\n+$//; # ending lines |
1627 | s/\n+$//; # ending lines |
1627 | } |
1628 | } |
1628 | |
1629 | |
1629 | $xml |
1630 | $xml |
1630 | } |
1631 | } |
|
|
1632 | |
|
|
1633 | no re 'eval'; |
1631 | |
1634 | |
1632 | sub hintmode { |
1635 | sub hintmode { |
1633 | $_[0]{hintmode} = $_[1] if @_ > 1; |
1636 | $_[0]{hintmode} = $_[1] if @_ > 1; |
1634 | $_[0]{hintmode} |
1637 | $_[0]{hintmode} |
1635 | } |
1638 | } |