Source

p5-rdf-prefixes / test1.pl

Full commit
#!/usr/bin/perl

use 5.010;
use common::sense;
use lib "lib";
use RDF::Prefixes;

my $c = RDF::Prefixes->new({ex=>'http://example.com/'});

say $c->get_qname('http://xmlns.com/foaf/0.1/homepage');
say $c->get_qname('http://xmlns.com/foaf/0.1/');
say $c->get_curie('http://purl.org/dc/terms/title');
say $c->get_curie('http://purl.org/dc/terms/');
say $c->get_curie('http://purl.org/dc/elements/1.0/title');
say $c->get_curie('http://purl.org/dc/elements/1.1/title');
say '----';
say $c->turtle;