File Coverage

blib/lib/HTML/HeadParser/Liberal.pm

Criterion	Covered	Total	%
statement	18	21	85.7
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	26	30	86.6

package HTML::HeadParser::Liberal;
use 5.008005;
use strict;
use warnings;
use HTML::HeadParser;
use B::Deparse;

our $VERSION = "0.03";

BEGIN {
    if ($HTML::HeadParser::VERSION < 3.71) {
        my $code = "sub " . B::Deparse->new->coderef2text(\&HTML::HeadParser::start);

        # Somewhere around perl 5.18 and perl 5.20, B::Deparse got upgraded,
        # and the resulting code looks slightly different
        #
        # the older ones produce:
        #    if ($$attr{'name'}) { ... }
        # the newer ones produce:
        #    if ($attr->{'name'}) { ... }

        $code =~ s/
            (
                if
                \s+
                \(
                (?:
                    \$\$attr # old tyle
                    |
                    \$attr-> # new style
                )
                \{'name'}
                \)
                \s+
                \{
            )
        /$1 \$attr->{'name'} =~ s\/:\/_\/g;/gsmx;

        no warnings 'redefine';
        *HTML::HeadParser::start = eval $code;
    }
}

1;
__END__