| 250 |
my %opt = @_; |
my %opt = @_; |
| 251 |
push @$triple, |
push @$triple, |
| 252 |
[$opt{node}, $opt{subject}, $opt{predicate}, $opt{object}]; |
[$opt{node}, $opt{subject}, $opt{predicate}, $opt{object}]; |
| 253 |
|
if (defined $opt{id}) { |
| 254 |
|
push @$triple, |
| 255 |
|
[$opt{node}, |
| 256 |
|
$opt{id}, |
| 257 |
|
{uri => q<http://www.w3.org/1999/02/22-rdf-syntax-ns#subject>}, |
| 258 |
|
$opt{subject}]; |
| 259 |
|
push @$triple, |
| 260 |
|
[$opt{node}, |
| 261 |
|
$opt{id}, |
| 262 |
|
{uri => q<http://www.w3.org/1999/02/22-rdf-syntax-ns#predicate>}, |
| 263 |
|
$opt{predicate}]; |
| 264 |
|
push @$triple, |
| 265 |
|
[$opt{node}, |
| 266 |
|
$opt{id}, |
| 267 |
|
{uri => q<http://www.w3.org/1999/02/22-rdf-syntax-ns#object>}, |
| 268 |
|
$opt{object}]; |
| 269 |
|
push @$triple, |
| 270 |
|
[$opt{node}, |
| 271 |
|
$opt{id}, |
| 272 |
|
{uri => q<http://www.w3.org/1999/02/22-rdf-syntax-ns#type>}, |
| 273 |
|
{uri => q<http://www.w3.org/1999/02/22-rdf-syntax-ns#Statement>}]; |
| 274 |
|
} |
| 275 |
}; |
}; |
| 276 |
$rdf->convert_rdf_element ($item->{node}); |
$rdf->convert_rdf_element ($item->{node}); |
| 277 |
}, |
}, |
Parent Directory
| 
Revision Log
| 
Patch