304 |
my $rdf = Whatpm::RDFXML->new; |
my $rdf = Whatpm::RDFXML->new; |
305 |
## TODO: Should we make bnodeid unique in a document? |
## TODO: Should we make bnodeid unique in a document? |
306 |
$rdf->{onerror} = $self->{onerror}; |
$rdf->{onerror} = $self->{onerror}; |
307 |
|
$rdf->{level} = $self->{level}; |
308 |
$rdf->{ontriple} = sub { |
$rdf->{ontriple} = sub { |
309 |
my %opt = @_; |
my %opt = @_; |
310 |
push @$triple, |
push @$triple, |
344 |
info => 'i', |
info => 'i', |
345 |
uncertain => 'u', |
uncertain => 'u', |
346 |
|
|
347 |
fact => 'm', |
html4_fact => 'm', |
348 |
xml_error => 'm', ## TODO: correct? |
xml_error => 'm', ## TODO: correct? |
349 |
nc => 'm', ## XML Namespace Constraints ## TODO: correct? |
nc => 'm', ## XML Namespace Constraints ## TODO: correct? |
350 |
|
|
351 |
|
rdf_fact => 'm', |
352 |
|
rdf_grammer => 'm', |
353 |
|
rdf_lc_must => 'm', |
354 |
}; |
}; |
355 |
|
|
356 |
sub check_document ($$$;$) { |
sub check_document ($$$;$) { |