Lines 57-62
my $checkers = [
Link Here
|
57 |
description => '<body> tag with id and class attributes', |
57 |
description => '<body> tag with id and class attributes', |
58 |
check => sub { |
58 |
check => sub { |
59 |
my ($self, $name, $token) = @_; |
59 |
my ($self, $name, $token) = @_; |
|
|
60 |
return if $name =~ /bodytag\.inc/; |
60 |
my $_ = $token->{_string}; |
61 |
my $_ = $token->{_string}; |
61 |
push @{$self->{errors}->{$name}}, $token->{_lc} |
62 |
push @{$self->{errors}->{$name}}, $token->{_lc} |
62 |
if /^<body/ && ! /id=".+"/ && ! /class=".+"/; |
63 |
if /^<body/ && ! /id=".+"/ && ! /class=".+"/; |
63 |
- |
|
|