File Coverage

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

Criterion	Covered	Total	%
statement	22	22	100.0
branch	5	6	83.3
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	34	36	94.4

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

our $VERSION = '0.10';

use Carp qw/croak/;

sub init {
    my($class, $lint, $conf) = @_;

    my $rule = $conf->{rule} or croak 'required option: rule';
    $lint->override(gripe => sub {
        my $super = shift;
        return sub {
            my $self     = shift;
            my $errcode  = shift;
            my %errparms = @_;

            if (my $is_whitelist = $rule->{$errcode}) {
                return if $is_whitelist->(\%errparms);
            }

            $self->$super($errcode, %errparms);
        };
    });
}

1;
__END__