File Coverage

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

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition	1	2	50.0
subroutine	6	6	100.0
pod	0	1	0.0
total	22	24	91.6

package HTML::Lint::Pluggable::RDFa;

use 5.008_001;
use strict;
use warnings;

use parent qw/ HTML::Lint::Pluggable::WhiteList /;

my %rdfa_attrs = map { $_ => 1 } qw/
  about content datatype inlist prefix property rel resource rev
  typeof vocab /;

sub init {
    my ( $class, $lint ) = @_;
    $class->SUPER::init(
        $lint => +{
            rule => +{
                'attr-unknown' => sub {
                    my $param = shift;
                    return exists $rdfa_attrs{ $param->{attr} } || 0;
                },
            }
        }
    );
}

1;

__END__