File Coverage

blib/lib/HTML/Lint/Pluggable/TinyEntitesEscapeRule.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	28	29	96.5

package HTML::Lint::Pluggable::TinyEntitesEscapeRule;
use 5.008_001;
use strict;
use warnings;

our $VERSION = '0.08';

use parent qw/ HTML::Lint::Pluggable::WhiteList /;
use HTML::Entities qw/%char2entity/;

sub init {
    my($class, $lint) = @_;
    $class->SUPER::init($lint => +{
        rule => +{
            'text-use-entity' => sub {
                my $param = shift;
                return 0 if exists $char2entity{$param->{char}};
                return 1;
            }
        }
    });
}

1;
__END__