|
Lines 79-84
sub text {
Link Here
|
| 79 |
my $work = shift; # original text |
79 |
my $work = shift; # original text |
| 80 |
my $is_cdata = shift; |
80 |
my $is_cdata = shift; |
| 81 |
|
81 |
|
|
|
82 |
if ($is_cdata) { |
| 83 |
$work = "<![CDATA[$work]]>"; |
| 84 |
} |
| 85 |
|
| 82 |
# If there is a split template toolkit tag |
86 |
# If there is a split template toolkit tag |
| 83 |
if ( $work =~ m/^(?:(?!\[%).)*?%\]/s ) { |
87 |
if ( $work =~ m/^(?:(?!\[%).)*?%\]/s ) { |
| 84 |
my @strings = ($&); |
88 |
my @strings = ($&); |
| 85 |
- |
|
|