#!/usr/bin/perl

use strict;
use warnings;

use RDF::Notation3::Triples;
use RDF::Notation3::XML;

use Data::Dumper;

my $n3 = <<'EOS';
@prefix : <http://xmlns.com/foaf/0.1/> .
@prefix rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#> .
@prefix dc: <http://purl.org/dc/elements/1.1/> .

_:cho45 a :Person ; :mbox <mailto:cho45@lowreal.net> 
                  ; :homepage <http://lowreal.net/> .


EOS


my $rdf = RDF::Notation3::Triples->new();

$rdf->parse_string($n3);

#print Dumper $rdf->{ns};
#print Dumper $rdf->get_triples;

print $rdf->get_triples_as_string();
print "\n";
print $rdf->get_triples_as_string(undef, "<http://xmlns.com/foaf/0.1/mbox>");
print "\n";

#use RDF::Notation3::XML;
#
#$rdf = RDF::Notation3::XML->new();
#
#$rdf->parse_string($n3);
#
#print $rdf->get_string;