| 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 ($$$;$) { |