File Coverage

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

Criterion	Covered	Total	%
statement	3	14	21.4
branch	0	8	0.0
condition			n/a
subroutine	1	2	50.0
pod	0	1	0.0
total	4	25	16.0

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

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

    return 0 if $error->message !~
        /^parser error : (?:EntityRef: expecting ';'|xmlParseEntityRef: no name)/;

    # If the document doesn't contain any PIs or CDATA sections, we might as
    # well try to fix all broken entity references and named character
    # references in one go.  (If it does contain one of those, fixing
    # everything would risk changing the content in ways the author wouldn't
    # expect.)
    #
    # In principle, we should take care not to change comments either; but
    # in practice, I'm prepared to consider comments fair game, given that
    # the author can preserve them by merely generating a well-formed XML
    # document.
    if ($$xml_ref !~ / .<\? |
        return 1 if $$xml_ref =~
            s/&(?!\w+;|#(?:x[a-fA-F0-9]+|\d+);)/&/g;
    }
    else {
        my $pos = $error->location;
        while ($pos > 0) {
            pos($$xml_ref) = $pos--;
            return 1 if $$xml_ref =~ s/\G&/&/
        }
    }

    Carp::carp("Can't find unescaped &, error was: ", $error->summary);
    return 0;
}

1;