72 |
require Whatpm::LangTag; |
require Whatpm::LangTag; |
73 |
Whatpm::LangTag->check_rfc3066_language_tag ($value, sub { |
Whatpm::LangTag->check_rfc3066_language_tag ($value, sub { |
74 |
$self->{onerror}->(@_, node => $attr); |
$self->{onerror}->(@_, node => $attr); |
75 |
}); |
}, $self->{level}); |
76 |
} |
} |
77 |
|
|
78 |
## NOTE: "The values of the attribute are language identifiers |
## NOTE: "The values of the attribute are language identifiers |
342 |
warn => 'w', |
warn => 'w', |
343 |
good => 'w', |
good => 'w', |
344 |
info => 'i', |
info => 'i', |
345 |
|
|
346 |
uncertain => 'u', |
uncertain => 'u', |
347 |
|
|
348 |
html4_fact => 'm', |
html4_fact => 'm', |
349 |
xml_error => 'm', ## TODO: correct? |
xml_error => 'm', ## TODO: correct? |
350 |
nc => 'm', ## XML Namespace Constraints ## TODO: correct? |
nc => 'm', ## XML Namespace Constraints ## TODO: correct? |
351 |
|
|
352 |
|
uri_syntax => 'm', |
353 |
|
uri_fact => 'm', |
354 |
|
uri_lc_must => 'm', |
355 |
|
uri_lc_should => 'w', |
356 |
|
|
357 |
|
langtag_fact => 'm', |
358 |
|
|
359 |
rdf_fact => 'm', |
rdf_fact => 'm', |
360 |
rdf_grammer => 'm', |
rdf_grammer => 'm', |
361 |
rdf_lc_must => 'm', |
rdf_lc_must => 'm', |