File Coverage

blib/lib/XML/Liberal/Remedy/NestedCDATA.pm

Criterion	Covered	Total	%
statement	6	16	37.5
branch	0	4	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	24	33.3

package XML::Liberal::Remedy::NestedCDATA;
use strict;

use HTML::Entities qw( encode_entities );

sub apply {
    my $class = shift;
    my($driver, $error, $xml_ref) = @_;

    return 0 if $error->message !~ /^parser error : Opening and ending tag mismatch:/;

    while ($$xml_ref =~ /(?<=  )/xmsg) {
        my ($cdata, $start, $end) = ($1, $-[1], $+[1]);
        next if $cdata !~ /
        my $escaped = encode_entities($cdata, '<>&');
        substr($$xml_ref, $start, $end - $start) = "]]>$escaped
        return 1;
    }

    return 0;
}

1;