File Coverage

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

Criterion	Covered	Total	%
statement	6	14	42.8
branch	0	4	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	22	36.3

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

use HTML::Tagset ();

my $ERROR_RX = do {
    # Exclude void elements
    my $pat = join '|', reverse sort grep { !$HTML::Tagset::emptyElement{$_} }
        keys %HTML::Tagset::isKnown;
    qr/^parser error : Opening and ending tag mismatch: ((?i:$pat)) line \d+ and (\S+)/
};

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

    my ($unclosed, $detected) = $error->message =~ $ERROR_RX or return 0;

    my $index = $error->location;
    my $tail = substr $$xml_ref, $index, length($$xml_ref) - $index, '';

    return 1 if $$xml_ref =~ s{(  \z )}{$1$tail}xms;

    Carp::carp("Can't find incorrect close tag");
    return 0;
}

1;